•0'000-NiC>vyi^o^r\j— *O'000'slOv_nf'i^(ro 


CZRNJBO RM80 FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 2 


1 


.REM a 


IDENTIFICATION 


PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MAINTA1NER: 
AUTHOR: 


AC-T122B-MC 

CZRNJBO RM80 FORMATTER 
SEPTEMBER 15, 1982 
CX DIAGNOSTIC GROUP 
C. HESS, M. LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 


COPYRIGHT <C> 1982,1983 DIGITAL EQUIPMENT CORPORATION 



CZRNJBO RM8Q FORMATTER MACRO Mil 1 3 15-SEP-82 14:16 PAGE 3 


SEQ OOO. 


CONTENTS 


1. INTRODUCTION 

1. ABSTRACT 

2. OPERATING REQUIREMENTS 

1. HARDWARE REQUlREMEf 'S 
?. PREREQUISITE DIAGNOSTIC PROGRAMS 

3. OPERATING PROCEDURE 

1. LOADING 

2. SWITCH OPTIONS 

3. STARTING 
A. HALTING 

5. RESTARTING 

4. OPERATOR INTERFACE 

1. PROGRAM IDENTIFICATION 

2. CONSOLE DIALOGUE 

3. WARNING MESSAGES 

4. PROGRESS REPORTS 

5. PERFORMANCE REPORTS 

6. PROGRAM HALTS 

7. ERROR REPORTS 

8. EXECUTION TIME 

5. ENVIRONMENTAL SUPPORT 

1. PROCESSOR COMPATIBILITY 

2. DUAL PORI CONFIGURATIONS 

3. MEMORY PARITY HARDWARE 

4. MEMORY MANAGEMENT HARDWARE 

5. ACT, APT COMPATIBILITY 

6. XXDP COMPATIBILITY 

7. OPERATING SYSTEM COMPATIBILITY 

6. FOPMAT DESCRIPTION 

1. FORMAT PROCESS 

7. RECONSTRUCTION DESCRIPTION 

1. HANDLING OLD DEFECTS 

2. HANDLING NEW DEFECTS 

8. BAD SECTOR FILE LAYOUTS 

1. SKIPPED SECTOR FILE 

2. DEC STANDARD 144 FILE 

9. ERROR TYPE DESCRIPTION 


CZRNJBO RM80 FORMATTER MACRO Ml 1 1 3 15-SEP-82 14:16 PAGE 4 


D 


SEO 0003 


148 

149 

150 

151 

152 
155 

154 

155 

156 

157 

158 

159 


1.0 INTRODUCTION 

1.1 ABSTRACT 

THE RM80 FIELD FORMAT PROCESS FOR 16 BIT APPLICATIONS IS A 
RECONSTRUCTION PROCESS THAT RE-ESTABLISHES THE FACTORY FORMAT OF 
THE HDA. THE FORMATTER IS NOT INTENDED TO BE USED BY FIELD SERVICE 
AS RM80 TROUBLE SHOOTING TOOL; ALSO, HDAS SHOULD NOT BE FORMATTED 
UNLESS THE EXISTING FORMAT HAS BEEN DAMAGED BY HARDWARE OR SOFTWARE 
FAILURES. 

BECAUSE OF THE TECHNOLOGY USED IN THE RM80 HDA. IT iS EXPECTED THAT 
THE NUMBER OF DEFECTS (BAD SECTORS) WILL EXCEED THE NUMBER OF BAD 
SECTORS THAT THE 16 BIT FILE SYSTEMS CAN ACCEPT. SKIP SECTORING 
WAS ADDED TO THE RM80 TO REDUCE THE APPARENT NUMBER OF BAD SECTORS: 
SKIPPED SECTORS ARE VISIBLE ONLY TO THE HOST OPERATING SYSTEM'S 
RM80 DEVICE DRIVER. (THE FILE SYSTEM VISIBLE DEFECTS ARE LISTED IN 
THE DEC STD 144 MFG AND USER’S FILES, MDBSF AND UDBSF . 
RESPECTIVELY.) 

THE RM80 HDA MEDIA IS VERIFIED IN MANUFACTURING USING PARAMETERS 
VERIFICATION EQUIPMENT. THE DEFECT LIST GENERATED BY THE 
MANUFACTURING VERIFCATION PROCESS IS THE MASTER LIST OF DEFECTS ON 
THE HDA. EXPERIENCE WITH PREVIOUS DISK PRODUCTS INDICATES THAT 
FUNCTIONAL FORMAT/VERIFICATION PROGRAMS CANNOT PERFORM ADEQUATE 
MEDIA VERIFICATION AND WILL MISS A LARGE NUMBER OF THE DEFECTS 
WHICH ARE PRESENT. SINCE ONLY A FEW OF THE ACTUAL DEFECTS WHICH 
ARE PRESENT ARE DETECTED BY A FUNCTIONAL FORMAT/VERIFICATION 
PROGRAM, MARKING THE FRRORS DISCOVERED BY SUCH A VERIFICATION 
PROGRAM WILL, IN EFFECT, CREATE AN HDA WHICH HAS A HIGHER APPARENT 
ERROR RATE THAN IT HAD INITIALLY. CONSEQUENTLY, THE FIELD 
FORMATTER WILL NOT RELY ON FUNCTIONAL MEDIA VERIFICATION ALONE. 
THE FIELD FORMAT OPERATION WILL BE BASED ON THE HDA'S 16 BIT MODE 
BAD SECTOR FILES SUPPORTED BY INCIDENTAL MEDIA VERIFICATION. 
FUNCTIONAL MEDIA VERIFICATION, ALTHOUGH LIMITED. WILL BE ATTEMPTED 
AS A MEANS OF DETECTING DEFECTS WHICH HAVE DEVELOPED SINCE THE HDA 
LEFT MANUFACTURING. 

THE LOCATIONS OF SKIPPED SECTORS ARE LISTED IN A NEW BAD SECTOR 
SUPPORT FILE CALLED THE SKIPPED SECTOR FILE (SSF). THE LOCATIONS Of 
SKIPPED SECTORS ARE NECESSARY SO THAT A FIELD FORMAT PROGRAM CAN 
RECONSTRUCT (SEE SECTION 7) THE FACTORY FORMAT OF AN HDA. THE 
NON-SKI PPED SECTOR LOCATIONS ARE LISTED IN THE DEC STD 144 FILES. 
THESE FILES ARE CREATED/INITIALIZED BY THE MANUFACTORING tORMAT 
PROCESS. 

2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL. IS REQUIRED TO LOAD AND EXECUTE THE RM80 SUBSYSTEM 


FORMATTER: 


PDP-11/70 PROCESSOR 
28K MEMORY 
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KW11-L OR KU11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH70 CONTROLLER 

1 TO 8 RM80 DISK DRIVES 

2.2 PREREQUISITE DIAGNOSTIC PROGRAMS 

RM80 DISKLESS TEST. PART 1 AND 2 

3.0 OPERATING PROCEDURE 

3.1 LOADING 

THE PROGRAM MAY BE LOADED FROM ANY XXDP MEDIA. 

3.2 SWITCH OPTIONS 

THE PROGRAM DOES NOT SUPPORT ANY HARDWARE OR SOFTWARE SWITCH 
REGISTER OPTIONS. 

3.3 STARTING 

THE PROGRAM MUST BE STARTED AT LOCATION 200 . HOWEVER. BECAUSE 

LOCATION 200 GETS OVER WRITTEN BY THE RSXll MONITOR. THE PROGRAM 
CANNOT BE RESTARTED AFTER ITS INITIAL STARTUP. 

3.4 HALTING 

THE PROGRAM CAN BE HALTED BY PRESSING THE HALT SWITCH ON THE 
PROCESSOR FRONT PANEL. 

NOTE: ONCE THE PROGRAM IS HALTED. IT CAN ONLY BE RESTARTED BY 
PRESSING CONTINUE ON THE PROCESSOR FRONT PANEL OR RELOADING 
THE PROGRAM AND STARTING AT ADDRESS 200 . 

3.5 RESTARTING 

THE PROGRAM CAN ONLY BE RESTARTED BY RELOADING THE PROGRAM AND 
STARTING AT ADDRESS 200 . 

4.0 OPERATOR INTERFACE 

4.1 PROGRAM IDENTIFICATION 

THE PROGRAM TYPES ITS TITLE THE FIRST TIKE IT IS STARTED AFTER 
BEING LOADED. 

4.2 CONSOLE DIALOGUE 

THE PROGRAM ENTERS A CONSOLE DIALOGUE SEQUENCE AFTER TYPING THE 
PROGRAM IDENTIFICATION. 

UPON STARTING THE PROGRAM, THE FOLLOWING PROMPT WILL ASK THE USER 
TO SPECIFY WHICH DRIVE IS TO BE FORMATTED. 
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•DRIVE »: 1 

ENTER THE DRIVE ADDRESS NUMBER (0-7) FOLLOWED BY CARRIAGE RETURN. 
IF THE SELECTED DRIVE IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN 
ERROR MESSAGE AND RETURN TO THE THIS PROMPT. 


NOTE: ONLY ONE DRIVE CAN BE FORMATTED AT A TIME. 
NOT ALLOW MULTIPLE DRIVE FORMATTING. 


THIS PROGRAM DOES 


AFTER THE USER HAS SELECTED THE DRIVF TO BE FORMATTED, THE PROGRAM 
WILL ASK FOR AN OPTION TO BE SELECTED WI1H THE FOLLOWING PROMPT. 

•OPTIONS: ’ 


232 


233 

THE COMMANDS 

234 


235 

IN 

236 


237 


238 


239 


240 


241 


242 

FO 

243 


24* 

<CR> 

245 


246 

FO:F 

247 


248 


249 

LI 

250 


251 


252 

LI :L 

253 


254 


255 


256 

VFL=N 

257 


258 


259 


260 


261 

ERL=N 

262 


263 


264 


265 


266 

CSR=N 

267 


268 


269 


270 

VEC=N 

271 


27? 


273 



AVAILABLE FOR THE OPTION PROMPT ARE AS FOLLOWS: 

INITIALIZE ALL THE BAD SECTOR FILES (DEC STD 144 AND 
SSF). 

NOTE: THE INITIALIZE COMMAND WILL DESTROY THE CONTENTS 
OF ALL THE BAD SECTOR FILES (DEC STD 144 AND 
SSF). 

FORMAT THE DISK. (ALL CYLINDERS 0 - 560.) 

SAME AS ’FO’ COMMAND 

FORMAT THE FE CYLINDERS ONLY. (CYL 559., TRK 2 - CYL 
560.. TRK 13.) 

LIST THE PHY I CAL ADDRESSES OF THE DEFECTS IN ALL THE 
BAD SECTOR FILES (DEC STD 144 FILES AND SSF). 

LIST THE LOGICAL ADDRESSES OF THE DEFECTS IN THE DEC 
STD 144 FILES. (SSF DOES NOT CONTAIN ANY LOGICAL 
ADDRESSES) 

VERIFY SECTOR COUNT, WHERE 'N* IS THE NUMBER OF TIMES 
TO RE-READ A TRACK DURING VERIFY OPERATION. THE 
DEFAULT IS 1 (RANGE 1-256.). AFTER COMPLETING THE 
FORMAT. *N' WILL RETURN TO ITS DEFAULT VALUE. 

ERROR LIMIT COUNT. WHERE 'N 1 IS THE NUMBER OF ERRORS 
ALLOWED BEFORE THE FORMAT IS ABORTED. THE DEFAULT IS 
256 (RANGE 1-256.). AFTER COMPLETING THE FORMAT, *N‘ 
WILL RETURN TO ITS DEFAULT VALUE. 

RM BASE ADDRESS, WHERE 'N* IS THE ADDRESS OF RMCS1 IN 
OCTAL. THE DEFAULT IS 176700. AFTER COMPLETING THE 
FORMAT, 'N* WILL RETAIN ITS CHANGED VALUE. 

RM VECTOR ADDRESS, WHERE 'N* IS THE ADDRESS OF 
INTERRUPT ADDRESS IN OCTAL. THE DEFAULT IS 254. AFTER 
COMPLETING THE FORMAT, ‘N* WILL RETAIN ITS CHANGED 
VALUE. 
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THE USER MAY STRING ANY COMBINATION OF COMMAND OPTIONS TOGETHER BY 
USING A SLASH (/) TO SEPARATE THE COMMANDS. HOWEVER. IF ONLY A 
CARRIAGE RETURN IS TYPE FOR THE OPTION PROMPT, THE PROGRAM WILL GO 
INTO FORMAT CFO) MODE USING THE DEFAULT PARAMEfERS. 

EXAMPLE #1: 

OPT I ON: F0/CSR=1 76000/ VEC =260/ VFL=3/ERL=1 0<CR> 

THE ABOVE COMMAND INDICATES THAT THE ENTIRE DISK WILL BE FORMATTED. 
THE RMCS1 ADDRESS WILL BE SET TO 176000, THE VECTOR ADDRESS WILL BE 
SET TO 260. THE VERIFY COUNT WILL BE SET TO 3 AND ERROR LIMIT WILL 
BE SET TO 10. 


THE FOLLOWING PROMPT WILL OCCUR IF THE OPTION SPECIFIED WAS AN 
INITIALIZE (IN) OR FORMAT (FO) COMMAND. 

•CONTINUE (L) N ? 1 

IF THE RESPONSE TO THIS PROMPT IS A 'N* FOLLOWED BY A CARRIAGE 
RETURN OR JUST A CARRIAGE RETURN, THE PROGRAM WILL ABORT THE 
CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT. IF THE RESPONSE IS 
A 'Y* FOLLOWED BY A CARRIAGE RETURN, THE PROGRAM WILL CONTINUE TO 
THE NEXT STEP IN THE CURRENT COMMAND OPTION. 


THE FOLLOWING PROMPT WILL OCCUR IF THE OPTION SPECIFIED WAS A 
FORMAT (FO) COMMAND. 

'UPDATE MODE (L) N ? * 

IF THE RESPONSE TO THIS PROMPT IS A 'N* FOLLOWED BY A CARRIAGE 
RETURN OR JUST A CARRIAGE RETURN, THE PROGRAM WILL ABORT THE 
CURRENT COMMAND AND RETURN TO THE DRIVE PROMPT. IF THE RESPONSE IS 
A *Y' FOLLOWED BY A CARRIAGE RETURN, THE PROGRAM WILL ENTER THE 
MANUAL BAD SECTOR UPDATE ROUTINE. 


THE FOLLOWING TWO PROMPTS WILL OCCUR IF THE OPTION SPECIFIED WAS AN 
INITIALIZE (IN) OR FORMAT (FO) COMMAND. 

•ENTER DATE (DD-MMR-YY): * 

THE DATE IS ENTERED BY TYPING A DAY IN DECIMAL. THE FIRST 3 LETTERS 
OF THE MONTH AND THE LAST TWO DECIMAL DIGITS OF THE YEAR. 

AFTER ENTERING THE DATE. THE PROGRAM WILL PROMPT THE USER FOR THE 
HDA SERIAL NUMBER AS FOLLOWS: 

•HDA SERIAL NUMBER: * 

THE HDA SERIAL NUMBER CAN BE ANY DECIMAL NUMBER UP TO 10. DIGITS IN 
LENGTH. 
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IF THE OPTION WAS A FORMAT (FO) COMMAND AND THE USER HAS ENTERED 
THE MANUAL UPDATE MODE, THE FOLLOWING PROMPT WILL BE TYPED TO ALLOW 
THE ENTERING OF SECTORS INTO THE BAD SECTOR FILES. 

•ENTER BAD SECTR ADRS: 

CYL.TRK.SEC = ' 

THE BAD SECTOR ENTRY IS ENTERED BY TYPING THE CYLINDER ADDRESS. 
TRACK ADDRESS AND SECTOR ADDRESS IN DECIMAL, P OL LOWED |Y A CARRIAGE 
RETURN. TO TERMNATE THE BAD SECTOR ENTRY LIST, TYPE A CARRIAGE 
RETURN IN RESPONSE TO THE ENTRY PROMPT. 

IF THE BAD SECTOR HAS A HEADER ERROR OR DRIVE TIMING ERROR (EXAMPLE 
#2), THE LETTER 'H' (HEADER DEFECT) MUST FOLLOW | H E DEFECT 
INDICATED. THIS WILL INDICATE TO THE PROGRAM, WHICH FILE (SSF OR 
DEC STD 144) THE DEFECT MUST BE STORED IN. 


EXAMPLE #1: 

ENTER BAD SECTR ADRS: 
CYL.TRK.SEC = 525.4,25<CR> 

CYL.TRK.SEC = <CR> 


;DEFECT CYL 524., TRK 4., SEC 
25. 

; TERMINATE INPUT 


IF THIS DEFECT (EXAMPLE #1) IS NOT ALREADY IN THE SKIP SECTOR 
(SSF). THE DEFECT WILL BE ENTERED AS A SKIP SECTOR E' RY. 
SECTION 7.0 FOR MORE DETAILS) 


FILE 

(SEE 


EXAMPLE #2: 

ENTER BAD SECTR ADRS: 
CYL.TRK.SEC = 525.4,25H<CR> 

CYL.TRK.SEC = <CR> 


; DEFECT CYL 524., TRK 4., 
25. (HEADER ER r .OR) 
.•TERMINATE INPUT 


SEC 


THIS SECTOR (EXAMPLE #2) WILL NOT BE ENTERED AS A SKIPPED SECTOR. 
BECAUSE A HEADER ERROR WAS FLAGGED BY THE USER, BY PLACING THE 
LETTER 'H* AFTER THE DEFECT. THE DEFECT WILL BE ENTERED IN THE 
MANUFACTURES SECTION OF THE DEC STD 144 FILE. (SEE SECTION 7.0 FOR 
MORE DETAILS) 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
OF RESPONSE REQUIRED BY THE USER. D=DECIMAL. 0=0CTAL AND 
1 =LETTER. 


,.3 WARNING MESSAGES 

WARNING MESSAGES WILL BE TYPED AT THE APPROPRIATE TIME DURING THE 
PROGRAM TO NOTIFY THE USER THAT THE CONTENTS OF THE HDA WILL BE 
LOST. THE FOLLOWING MESSAGE WILL BE TYPED BEFORE INITIALIZING OR 
tORMATTING IMF HDA. 


'•* WARNING - DATA WILL BE LOST ON DRN: **' 

TO FURTHER WARN THE USER, THE FOLLOWING MESSAGE WILL BE TYPED JUST 
BEFORE INITIALIZING THE HDA. 



CZRNJBO RM80 FORMATTER MACRO M1113 15-SEP-82 14:16 PAGE 9 


SEO 0008 


'** WARNING - BAD SECTOR FILES WILL BE OVERWRITTEN ON DRN: **• 

FOLLOWING EACH WARNING MESSAGE, THE USER IS ALLOWED THE OPPORTUNITY 
TO TERMINATE THE PROGRAM WITHOUT DESTROYING THE DATA ON HDA, BY 
RESPONSING TO A PROGRAM PROMPT MESSAGE. (SEE SECTION A. 2) 

4.4 PROGRESS REPORTS 

NO PROGRESS REPORTS ARE GIVEN DURING THE EXECUTION Or THE PROGRAM. 

4.5 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 

4.6 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 

4.7 ERROR REPORTS 

THE FIRST LINE CONTAINS THE ERROR MESSAGE: ONE LINE OF TEXT WHICH 
GIVES A BRIEF DESCRIPTION OF THE ERROR. THE ERROR MESSAGE IS 
FOLLOWED BY ONE LINE CONTAINING DATA HEADERS AND DATA PERTININENT 
TO THE ERROR. THE LAST LINE CONTAINS THE DECIMAL REUUIVALENT OF 
THE RMDC AND RMDA REGISTERS. WHICH INDICATE WHERE THE ERROR 
OCCURED. 


THE FOLLOWING PRINTOUT SHOWS 
PROGRAM: 


TYPICAL ERROR message for this 


HEADER/DATA ERROR DURING VERIFY 

RMCS1=144252 RMCS2=040300 RMER1=100000 RMER2=000000 RMDA=001014 
CYLINDER=559. TRACK=2. SECT0R=11. 

4.8 EXECUTION TIME 

ONE PASS OF THE PROGRAM TAKES ABOUT 20 MINUTES. 

5.0 ENVIRONMENTAL SUPPORT 

5.1 PROCESSOR COMPATIBILITY 

THE RM80 SUBSYSTEM FORMATTER IS EXECUTABLE ON A PDP-11/70 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET. 

5.2 DUAL PORT CONFIGURATIONS 

THE RM80 SUBSYSTEM FORMATTER DOES NOT SPECIFICALLY TEST DUAL PORT 
LOGIC IN THE RM80 ADAPTER BUT IS EXECUTABLE ON RM80 SUBSYSTEMS 
HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH IS SET 
TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 
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MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE RM80 
SUBSYSTEM FORMATTER. 

5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUBSYSTEM 
FORMATTER. 

5.5 ACT11. APT11 COMPATIBILITY 

THE RM80 SUBSYSTEM FORMATTER IS COMPATIBLE WITH ACT11 AND APT11 IN 
DUMP MODE ONLY. 

5.6 XXDP COMPATIBILITY 

THE RM80 SUSBYSTEM FORMATTER IS COMPATIBLE WITH XXDP IN DUMP MODE 
ONLY. 

5.7 OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT COMPATIBLE WITH ANY OPERATING SYSTEM WHEN IT IS 
ASSEMBLED AS AN XXDP STANDALONE PROGRAM. 

6.0 FORMAT DESCRIPTION 

6.1 FORMAT PROCESS 

THE FORMATTER USES THE DEC STD 144 MFG AND USER FILES AND THE 
SKIPPED SECTOR FILE TO RECONSTRUCT (SEE SECTION 7) AN HDA'S 16 BIT 
FACTORY FORMAT AND ATTEMPTS TO FIND ADDITIONAL DEFECTS BY 
PERFORMING A FUNCTIONAL MEDIA VERIFICATION. 

BEFORE FORMATTING BEGINS, THE FORMATTER WILL READ AND VERIFY THE 
DEC STD 144 FILES AND THE SSF FILE. THESE FILES CONTROL THE 
MARKING OF KNOWN DEFECTS ON THE HDA. THE PROGRAM WILL READ AND 
VERIFY THE DEFECT FILES USING THE FOLLOWING PROCEDURE: 

1. EACH COPY OF THE SKIPPED SECTOR FILE (SSF) IS READ UNTIL A 
GOOD READ OCCURS AND THE HEADER AND DATA FIELDS ARE VALIDATED 
USING THE INTERNAL CHECKSUMS. 

2. STARTING WITH THE PRIMARY DEC STD 144 TRACK (CYL 558., TRK 

13.) AND CONTINUING TO THE SECONDARY DEC STD 144 TRACK (CYL 

559.. TRK 1.), THE PROGRAM WILL READ EACH COPY OF THE 16 BIT 

MANUFACTURING AND USER’S DEC STD 144 FILE UNTIL A GOOD READ 
OCCURS AND THE INTERNAL FORMAT OF EACH FILE IS VALIDATED. 

3. VERIFY THAT THE HDA SERIAL NUMBERS IN THE DEC STD 144 

(MANUFACTURING AND USER) FILE AGREE WITH THE SERIAL NUMBER IN 
THE SSF. IF THE SERIAL NUMBER IN THE DEC STD 144 
(MANUFACTURING OR USER) FILE DOES NOT COMPARE WITH THE SERIAL 
NUMBER IN THE SSF. THEN THE NEXT COPY OF THE FILE IN ERROR IS 
READ AND VALIDATED. 

4. VERIFY THAT THE DISK ADDRESSES IN THE DEC STD 1*.4 

(MANUFACTURING AND USER) FILE ARE VALID RM80 ADDRESSES. IF 
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AN ADDRESS ERROR IS FOUND, THE FILE IN ERROR WILL BE 
CONSIDERED CORRUPTED AND THE NEXT COPT OF THE FILE IN ERROR 
WILL BE READ AND VALIDATED. 

AFTER VERIFYING THE DEFECT FILES. THC PROGRAM URL THEN FORMAT 
(WRITE HEADER AND DATA) AND VERIFY (WRITE CHECK HEADER AND DATA) 
ALL 32 SECTORS OF EACH TRACK IN 16 BIT MODE USING THE FOLLOWING 32 
BIT DATA PATTERN TO FILL THE DATA FIELD OF EACH SECTOR. 

155555 133333 (OCTAL) OR DB6DB6DB (HEX) 

THE FOLLOWING SEQUENCE IS USED FOR FORMATTING: 

1. THE SKIPPED SECTOR ERROR INHIBIT BIT (SSEI). BIT 09 IN THE 
RMOF REGISTER. IS SET BEFORE EACH WRITE OR READ OPERATION. 
SETTING THIS BIT. in 16 BIT MODE. ALLOWS ACCESS TO ALL 32 
SECTORS ON THE TRACK. 

USING A WRITE HEADER AND DATA COMMAND. EACH TRACK (32 
SECTORS) IS FORMATTED IN 16 BIT MODE USING THE ABOVE DATA 
PATTERN FOR THE DATA PORTION OF EACH SECTOR. 

2. USING A WRITE CHECK HEADER AND DATA COMMAND, EACH TRACK IS 
READ 1 TIME. IF A DATA ERROR OCCURS AT A SECTOR WHICH IS NOT 
LISTED IN EITHER THE 16 BIT DEC STD 144 FILE OR THE SSF . THE 
SECTOR IS READ 20 TIMES. IF A DaTA ERROR OCCURS DURING THE 
REREAD SEQUENCE, THE SEQUENCE IS DISCONTINUED, AND THE 
ADDRESS OF THE FAILING SECTOR IS SAVED IN THE APPROPRIATE 
DEFECT LIST. THE PROGRAM THEN CONTINUES CHECKING THE 
REMAINDER OF THE TRACK. 

AFTER A TRACK HAS BEEN VERIFIED. THE TRACK IS REFORMATTED WITH THE 
BAD SECTOR MARKINGS BASED ON THE PREVIOUSLY DETECTED ERRORS AND ANY 
NEWLY DETECTED ERRORS. 


THE PRIMARY AND SECONDARY DEC STD 144 TRACKS (CVL 558. TRK 13 AND 
CYL 559 TRK 1, RESPECTIVELY). THE SSF TRACK (CYL 559. TRK 0). AND 
THE FE AREA WILL BE REFORMATTED. 


TH C SSF REVISION NUMBER AND DATE WILL BE UPDATED ONLY 
F lLi HAS BEEN UPDATED. 


IF THE SSF 


BOTH THE SSF AND THE DEC STD 144 FILES WILL BE SORTED SO THAT THE 
DEFECT ENTRIES ARE IN ASCENDING ORDER. THE 16 BIT DEC STD 144 
FILES AND THE SKIPPED SECTOR FILES WILL BE REWRITTEN. 

NOTE: THE 18 BIT MODE DEFECT DEC STD 144 FILE RECORDS AND THE 18 
BIT MODE SSF WILL BE REPLACED BY NULL RECORDS DURING A 16 BIT 
MODE FORMAT. 

IF. DURING THE FORMAT. THE NUMBER OF NEWLY DETECTED DEFECTS CAUSES 
THE TOTAL NUMBER OF DEFECTS IN THE MDBSF AND THE UDBSF TO EXCEED 
THE MAXIMUM, THE PROGRAM DISCONTINUES THE FORMAT AND DISPLAYS AN 
ERROR MESSAGE TO THIS EFFECT. THE PROGRAM THEN RESTARTS THE FORMAT 
PROCESS USING ONLY THE BAD SECTOR INFORMATION ALREADY IN THE MDBSF. 
UDBSF. AND THE SSF. THE FORMATTER, UNDER THESE CIRCUMSTANCES, WILL 
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WRITE THE TRACK STRUCTURE AND VERIFY THAT THE WRITE OCCURED 
CORRECTLY. ONLY - NO MEDIA VERIFICATION WILL BE ATTEMPTED. THE 
OPERATOR WILL MAKE THE DETERMINATION IF THE HDA IS DEFECTIVE AND IF 
IT IS TO BE REPLACED. 

7.0 RECONSTRUCT ION DESCRIPTION 

7.1 OLD DEFECTS 

THE TRACK IS RECONSTRUCTED ACCORDING TO DEFECTS LISTED IN THE 16 
BIT MDBSF, THE 16 BIT UDBSF , AND THE 16 BIT SSF. 

1. THE SSF IS CHECKED FOR AN ENTRY ON THE CURRENT TRACK. IF AN 
ENTRY EXISTS, THE SSE BIT IS SET IN THE HEADER OF THE SECTOR 
LISTED AND IN ALL FOLLOWING SECTORS, TO THE END OF THE 
CURRENT TRACK. (SEE SECTION 9.2) 

2. THE DEC STD 144 FILE IS CHECKED FOR ANY ENTRIES ON THE 
CURRENT TRACK. 

FOR DEC STD 144 ENTRIES WHICH OCCUR BEFORE A SKIPPED SECTOR 
OR ON A TRACK WHICH DOES NOT HAVE A SKIPPED SECTOR, THE 
APPROPRIATE HEADER BIT IS RESET <MF OR UF , ACCORDING T. THE 
FILE CONTAINING THE DEFECT ADDRESS). ALSO, THE ACTUAL 
ADDRESS (PHYSICAL ADDRESS) OF THE DEFECT IS LISTED IN THE DEC 
STD 144 FILE. (SEE SECTION 9.1 AND 9.3) 

FOR DEC STD 144 ENTRIES WHICH OCCUR AFTER A SKIPPED SECTOR, 
THE APPROPRIATE HEADER BIT IS RESET (MF OR UF , ACCORDING TO 
THE FILE CONTAINING THE DEFECT ADDRESS). ALSO. THE DEFECT IS 
LISTED IN THE DEC STD 144 FILE BY LOGICAL ADDRESS. (SEE 
SECTION 9.4 - 9.11) THE LOGICAL ADDRESS IS: 

LOGICAL ADDRESS = PHYSICALUYL.TRK, SEC-1) 


7.2 NEW DEFECTS 

NEWLY DETECTED ERRORS ON TRACKS WHICH ALREADY HAVE ERRORS, ARE 
HANDLED AS FOLLOWS: 

1. IF THE ERROR OCCURS BEFORE A SKIPPED SECTOR OR IF THERE IS NO 
SSF ENTRY FOR THE CURRENT TRACK, THE PHYSICAL ADDRESS OF THE 
SECTOR IS ENTERED IN THE 16 BIT UDBSF AND THE U* BIT IN THE 
HEADER OF EACH ERRORED SECTOR IS RESET. (SEE SECTION 9.1 AND 
9.3) 

2. IF THE ERROR OCCURS AFTER A SKIPPED SECTOR. THE LOGICAL 
ADDRESS OF THE SECTOR IS ENTERED IN THE 16 BIT UDB C F AND THE 
UF BIT IN THE HEADER OF EACH ERRORED SECTOR IS RtSET. (SEE 
SECTION 9.4 - 9.10) THE LOGICAL ADDRESS IS: 

LOGICAL ADDRESS = PHYSICAL(CYL.TRK, SEC-1) 

ADDITIONALLY. IF THE DEFECT SECTOR HAS A HEADER RELATED 
ERROR, THE SECTOR’S PHYSICAL ADDRESS IS ALSO ENTERED IN THE 
16 BIT UDBSF. (SEE SECTION 9.5) HOWEVER. IF THE HEADER ERROR 
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M 1 


5EQ 0012 


620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 
64 2 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
66 T 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 


15 SECTOR 31 , ONLY THE SECTOR'S LOGICAL ADDRESS IS ENTERED IN 
THE UDBSF. (SEE SECTION 9.10) 

FOR THE CASE OF A SECTOR UITH A HEADER FIELD DEFECT UHICH IS 
IMMEDIATELY FOLLOWED BY A SECTOR UITH A DATA FIELD DEFECT. 
THE LOGICAL ADDRESSES WILL BE ENTERED IN THE 16 BIT UDBSF FOR 
EACH SECTOR. (SEE SECTION 9.9) 

NEWLY DETECTED ERRORS ON TRACKS UHICH WERE PREVIOUSLY HAD NO 
ERRORS, ARE HANDLED AS FOLLOWS: 

1. SKIPPED SECTORING STARTS UITH THE FIRST (PRIMARY). NON-HEADER 
DEFECT ON THE TRACK. THE PHYSICAL ADDRESS OF THIS DEFECT IS 
ENTERED INTO THE SSF . (SEE SECTION 9.2) 

NOTE: SKIPPED SECTORING CANNOT BEGIN UITH A SECTOR UHICH HAS 
A HEADER FIELD DEFECT. 

THE HEADER OF THE SKIPPED SECTOR AND THE HEADERS OF THE 
SECTORS ON THE SAME TRACK FOLLOUING THE SKIPPED SECTOR WILL 
HAVE SSE (BIT 13) SET. 

THE UF BIT WILL BE RESET IN THE HEADER OF ALL NON-SKIPPED 
SECTORS EVEN THOUGH THE HEADER OF THE ERROR SECTOR MAY NOT BE 
READABLE. 

2. HEADER FIELD AND DATA FIELD DEFECTS PRECEDING A SKIPPED 
SECTOR WILL BE ENTERED IN THE 16 BIT MDBSF BY PHYSICAL 
ADDRESS. (SEE SECTION 9.3) 

3. IF THE ONLY DEFECT ON A TRACK IS SECTOR 31. THE DEFECT WILL 
BE MARKED AS A SKIPPED SECTOR, EVEN IF THE DEFECT AFFECTS THE 
HEADER, AND ITS ADDRESS ENTERED IN THE SSF. (SEE SECTION 
9.11) 

4. MULTIPLE DEFECTS WITHIN A SECTOR WILL BE CONSIDERED A SINGLE 
DEFECT. IF BOTH THE HEADER AND THE DATA FIELD ARF AFFECTED 
BY DEFECTS, THE HEADER DEFECT UILL TAKE REPORTING ' CEDENCE. 

5. NEU DEFECTS DETECTED ON PREVIOUSLY ERROR FREE TRACK- WITHIN 
THE DEC STD 144 AREA. THE SSF TRACK. OR THE FE TRACKS ARE NOT 
ENTERED IN THE 16 BIT UDBSF. IF APPROPRIATE. A DEFECT ON ANY 
OF THESE TRACKS IS SKIPPED AND ITS ADDRESS IS ENTERED IN THE 

16 BIT SSF. IF A DEFECT WITHIN THIS ADDRESSING RANGE CANNOT 
BE SKIPPED, THE DEFECT UILL BE TREATED AS A DEC STD 144 ERROR 
(I.E., THE UF BIT IS RESET IN THE HEADER) EXCEPT THAT THE 
ADDRESS OF THE DEFECT IS NOT ENTERED IN THE 16 BIT UDBSF. 


8.0 BAD SECTOR FILE LAYOUTS 

8.1 SKIPPED SECTOR FILE (SSF) 

THE SSF HAS STORAGE SPACE FOR THE PHYSICAL ADDRESSES OF 378 SKIPPED 
SECTORS. DEFECT ADDRESSES ARE STORED IN THE SSF IN ASCENDING 
SEQUENCE IN THE SAME FORMAT AS IN THE DEC STD 144 FILES. I.E.. 
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N 1 


SEG GO' 


678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 
70? 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 
73? 
733 
754 


CYLINDER ADDRESS FOLLOWED BY SECTOR AND TRACK ADDRRESSES. THE SSF 
WILL BE FILLED WITH ONE’S BETWEEN THE LAST DEFECT ADDRESS AND THE 
CHECKSUM. NOTE THAT BOTH THE HEADER PORTION AND THE DATA PORTION 
OF THE SSF ARE PROTECTED BY CHECKSUMS. THE 16 BIT SSF IS REPEATED 
5 TIMES ON THE FIRST TRACK OF THE FE AREA: CYLINDER 559, TRACK 0. 
THE SSF TRACK IS WRITTEN IN 16 BIT MODE. 

THE SERIAL NUMBER FIELD IN BOTH THE SSF AND THE DEC STD 144 FILE IS 
IN THE SAME FORMAT. 

THE SSF FILE FOR 18 BIT MODE DEFECTS WILL BE REPEATED 5 TIMES 
FOLLOWING THE 16 BIT SSF FILE. SINCE SKIPPED SECTORING IS A 
MECHANISM WHICH IS INHIBITED WHEN THE RM80 IS BEING OPERATED IN 18 
BIT MODE, THE USE OF THE SSF FOR 18 BIT MODE ADDRESSES IS ONLY TO 
PASS THE 18 BIT MODE ADDRESSES OF HDA DEFECTS WHICH DO NOT APPEAR 
IN THE DEC STD 144 FILE. THE 18 BIT SSF COPIES WILL NEITHER BE 
USED NOR PRESERVED DURING 16 BIT FIELD FORMATTING. 

THE SSF FILE LAYOUT FOR BOTH 16 BIT MODE AND 18 BIT MODE FILES ARE 
AS FOLLOWS: 

15 0 


WORD 

0 

WORD 

1 

WOPD 

2 

WORD 

3 

WORD 

4 

WORD 

5 

WORD 

fc 

WORD 

7 

WORD 

8 

WORD 

9 

WORD 

10 

WORD 

11 

WORD 

12 

WORD 

13 


! HDA SERIAL NUMBER (LSB) ! 
! HDA SERIAL NUMBER (MSB) ! 
! YEAR ! MON ! DAY ! 
! YEAR ! MON ! DAY ! 
! REVISION NO ! 

♦•♦•♦•♦•♦•♦•♦•♦•♦•♦•♦•♦•♦•♦•♦•♦-I 

! UNUSED ! FORMAT TYPE ! 
! UNUSED ! 
! ' UNUSED ! 
! UNUSED ! 
! NUMBER OF SSF ENTRIES ! 
! CHECKSUM ! 
! ' CYLINDER ADDRESS ! 
! TRACK ! SECTOR ! 
! ONE’S ! 

i t 



SERIAL NUMBER IS A 31 
BIT BINARY NUMBER 


CREATION DATE 
(YEARS SINCE 1978) 
REVISION DATE 
(YEARS SINCE 1978) 


FORMAT TYPE: 1= 16 BIT 
0= 18 BIT 

UNUSED HEADER WORDS 
WILL BE ZERO FILLED 


SSF HEADER CHECKSUM 

PHYSICAL CYL. ADRS 

PHYSICAL ADDRESSES 

NULL ENTRIES WILL 
BE ONE’S FILLED 
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B l 


SEO OOU 


736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 


WORD 766 ! ONE’S ' 

WORD 767 ! CHECKSUM ! DEFECT ADDRESS FIELD 

CHECKSUM 

THE CHECKSUM IS CALCULATED USING THE FOLLOWING ALGORITHM. THE 
CHECKSUM CALCULATION IS BASED ON 16 BIT QUANTITIES (WORDS) AND IS 
REPEATED ONCE FOR THE SSF HEADER FIELD AND ONCE FOR THE SSF DATA 
FIELD. 

SIZE = FIELD.SIZE.IN_16.BIT.U0RDS 

CHECKSUM = 1 

REPEAT 

CHECKSUM = CHECKSUM ♦ P6 BIT WORD) 

CHECKSUM = CHECKSUM .ROTATED_CEF T 1 BIT. 

SIZE = SIZE - 1 
UNTIL SIZE .EQ. 0 
END.REPEAT 

THE ROTATE REFERED TO ABOVE IS THE FOLLOWING: 


♦ --------- 

« i 

: v 

!*! <— *151 !0! 


8.2 


'•* REFERS TO EITHER THE ’C’ BIT FCP PDP-11 OPERATION OR BIT 16 FOR 
MACHINES OTHER THAN THE PDP-11. NOTE THAT THE ROTATE OCCURS AFTER 
THE ADDITION; THE BIT SHIFTED INTO THE LSB POSITION OF THC 
ACCUMULATED CHECKSUM IS THE ’CARRY OUT’ FROM THE 16 BIT ADDITION 
OPERATION. 

DEC STD 144 MANUFACTURING AND USER BAD SECTOR FILES 

THE DEC STD 144 FILE IS CONTAINED ON TWO TRACKS ON THE RM80, THE 
FIRST TRACK IS THE PRIMARY COPY OF THE FILE. THE SECOND TRACK IS 
THE SECONDARY COPY OF THE FILE. THE PRIMARY COPY OF THE DEC STD 
144 FILE IS WRITTEN ON THE LAST ADDRESSABLE TRACK BEFORE THE FE 
CYLINDERS (CYL 558. TRK 13): THE SECONDARY COPY OF THE DEC STD 144 
FILE IS WRITTEN AT CYL 559. TRK 1. 

BOTH THE PRIMARY AND THE SECONDARY DEC STD 144 TRACKS ARE WRITTEN 
IN 16 BIT MODE. THE LAYOUT OF THE DEC STD 144 RECORD IS GIVEN 
BELOW. THE LAYOUT IS THE SAME FOR ALL COPIES OF THE FILE. 

15 0 


WORD 0 
WORD 1 
WORD 2 
WORD 3 


! HDA SERIAL NUMBER (LSB) ! SERIAL NUMBER IS A 31 

BIT BINARY NUMBER 

! HDA SERIAL NUMBER (MSB) ! 

! ZERO ! 

! ZERO I 
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C 2 


SEO 0015 


794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 


WORD 4 
WORD 5 
WORD 6 
WORD 7 


CYLINDER ADDRESS ! 
! TRACK ! SECTOR ! 
! ONE'S ! 
! ONE'S ! 


WORD 254 
WORD 255 


! ONE'S ! 

! ONE'S ! 


NULL ENTRIES WILL 
BE ONE'S FILLED 


THE 16 BIT MDBSF WILL BE WRITTEN IN SECTORS 0. 2. 4, 6. 8 OF THE 
PRIMARY AND SECONDARY DEC STD 144 TRACKS; THE 18 BIT MDBSF IS BE 
WRITTEN IN SECTORS 1,3, 5, 7.9. THE 16 BIT UDBSF IS WRITTEN IN 
SECTORS 10.12.14. ...30; THE 18 BIT UDBSF IS WRITTEN IN SECTORS 
11. 13. 15. ...29. 



CZRNJBO RM80 FORMATTER MACRO Ml 11 3 1 5-SEP-82 14:16 PAGE 17 


D 2 


SEQ 0016 


820 

821 

8?2 

P23 

<S24 

825 

826 

827 

828 

829 

830 

831 

832 
835 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 

869 

870 
P71 


9.0 ERROR TYPE DESCRIPTIONS 


1 


0 

♦- 

I 

( 

♦ - 


l I 
( i 

♦ -4 


♦ - 


> 144 PHYSICAL ENTRY ('O' OR 'H' ERROR) 


31 


♦ 


2 . 


0 

♦- 

i 

» 

♦ - 


:< • SSF ■ SET 

♦ - »——————— ........... 

i c » 

» J i 

♦ p — — — — 

t 

♦ > SSF ENTRY 


>31 : 
— ♦ 

i 

» 


3. 


o :< * sse ' set >31 : 




• c • 

I J • 

—————————— 

I 

♦ > SSF 

> 144 PHYSICAL CD' OR ’H’ ERROR) 


♦ 


4. 


0 :<- 

4.. 4. « 

1 i c • 

i ill 

i 

SSF < * 


0 :<- 

• iti 

1 i 3 i 


SSF < ♦ 


'SSE* SET >31 : 

♦ 

■ 'hi • 

i iiii • 

♦ 


* > 144 LOGICAL ENTRY 


— 'SSE' SET >31 ! 

♦ 

> i u i • 

i i n i • 

• • 

■ i 


j > 1 44 PHYSICAL ENTRY 

♦ > K4 LOGICAL ENTRY 
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SEO 0017 


873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 


6 . 


I C I 
i 3 i 


» — * SSE ' SET 

; ;d.d: 


•>31 j 


SSF < ♦ 


• ♦ > H4 LOGICAL 

♦ > 144 LOGICAL 


7. 


0 

!<— — ■ — 

’SSE’ SET 

— >31 


• c * 

i J i 

: :h:h! 



I 

SSF < ♦ 

i i » 

• j ; > 144 PHYSICAL 

: ♦ > 144 LOGICAL 



144 LOGICAL < ♦ 


8 . 


i r • 
« b i 


■ — ’SSE’ 

: :d:h: 


set 


*>3i : 
>< 6 



♦ 

♦ 

♦ 

♦ 

m 

SSF <- 

1 ! ♦ > 144 PHYSICAL 

1 ♦ > 144 LOGICAL 


144 LOGICAL < ♦ 


9. 


:s: 


■ ’SSE' SET 



: ;h:d; 


■>3i : 


4* 

4* 

■ 

4* 

4* 

4 

4 

SSF < ♦ 

I l 

i i 

! * > 144 LOGICAL 


144 LOGICAL < ♦ 


10 . 


!<— 

: si 


' SSE ' SET 


■>3i : 




SSF < ♦ 


144 logical < — ♦ : 
'O’ OR *H* ERROR < ♦ 
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949 



T9 


f 2 


SEQ 0018 


31 

------------------------ 

• < ■ 
■ ) ■ 

« 

SSF CSSE* SET) < i 

•D* OR 'M' ERROR < ♦ 


IS A DATA FIELD DEFECT; 'H* IS A HEADER FIELD DEFECT; 
IS A SKIPPED SECTOR DEFECT 
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SYMBOL TABLE 


. ABS. OOOOOC OOO 

000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 19 WORDS ( 1 PAGES) 

DYNAMIC MEMORY: 8206 WORDS ( 31 PAGES) 

ELAPSED TIME: 00:00:23 

.C300.303CZRNJBrC300.103BEG.DOC.CZRNJB.DOC.END.DOC 


G 2 


SEO 0019 



SEQ 0020 


CZRNJB. TSK; 1 MEMORY ALLOCATION MAP TAB PAGE 1 

7-JUL-82 15:03 


TASK NAME : CZRNJB 
PARTITION NAME : GEN 
IDENTIFICATION : 01.00 
TASK UIC : [300.10] 

TASK PRIORITY : 65. 

STACK LIMITS: 026172 026501 000310 00200. 

PRG XFR ADDRESS: 026502 
TOTAL ADDRESS WINDOWS: 1. 

TASK IMAGE SIZE : 14432. WORDS 

TASK ADDRESS LIMITS: 026000 116263 

R-W DISK BLK LIMITS: 000002 000072 000071 00057. 

*** ROOT SEGMENT: FMTROT 


R/W MEM LIMITS: 026000 116263 070264 28852. 
DISK BLK LIMITS: 000002 000072 000071 00057. 


MEMORY ALLOCATION SYNOPSIS: 


SECTION 

. BLK. : (RW.I .LCL.REL.CON) 


TITLE IDENT 


IMPURE :(RW.D. LCL.REL.CON) 
SKSTR :(RW,D, LCL.REL.CON) 

SKTAB :<RW.D, LCL.REL.CON) 

SSTATE:(RU.D, LCL.REL.CON) 

SSRESL : <RW. I ,LCL .REL .i.ON) 
SSSSBF : (RW.D. LCL.REL.CON) 


026502 
026502 
027000 
027444 
027616 
031 504 
034536 
035564 
036670 
040136 
041654 
043172 
044462 
047162 
047200 
047200 
047232 
047232 
047250 
047250 
047436 
047704 
047704 


020460 

000276 

000444 

000152 

001666 

003032 

001026 

001104 

001246 

001516 

001316 

001270 

000370 

000016 

000031 

000031 

000016 

000016 

000166 

000166 

000246 

046356 

046356 


08496. 

00190. 

00292. 

00106. 

00950. 

01562. 

00534. 

00580. 

00678. 

00846. 

00718. 

00696. 

00248. 

00014. 

00025. 

00025. 

00014. 

00014. 

00118. 

00118. 

00166. 

19694. 

19694. 


FMTROT 

FMTIO 

FMTDAT 

FMTMSG 

FMTSUB 

FMTPRS 

FMTR80 

FMTR8F 

FMTR8V 

FMTR8M 

FMTR8L 

FMTINT 


01.00 

01.00 

01.00 

01.00 

02.00 

01.00 

01.00 

02.00 

02.00 

02.00 

01.00 

01.00 


FMTPRS 01.00 
FMTPRS 01.00 
FMTPRS 01.00 

FMTDAT 01.00 


FILE 


FMTROT. OBJ: 1 
FMTIO. OBJ;1 


FMTDAT. OBJ 
FMTMSG. OBJ 
FMTSUB. OBJ 
FMTPRS. OBJ 
FMTR80.0BJ 
FMTR8F.0BJ 
FMTR8V.OBJ 
FMTR8M.0BJ 
FMTR8L.OBJ 
FMTINT. OBJ 


FMTPRS. OBJ;1 
FMTPRS. OBJ; 1 
FMTPRS. OBJ;1 


FMTDAT.OBJ;1 


GL08AL SYMBOLS: 


BASYR 

000116 

IE. BLK 

177754 

IE. OF L 

177677 

10. DET 

DPARS 

035/40-R 

IE.DAA 

177770 

IE.PRI 

177760 

IO.DGN 

DSKLUN 000003 

IE.DNR 

177775 

10. ATT 

001400 

IO.FER 

GENHDR 

034400-R 

IE. EOF 

177766 

IO.BLS 

004010 

10. FEW 


002000 

IO.HMS 

C04000 

IO.RLB 

001000 

I0.RTD 

004120 

004150 

IO.LPC 

004100 

IO.RNF 

004060 

IO.RVB 

010400 

004200 

10. OFF 

004020 

IO.RNR 

004070 

10. TDD 

004140 

004210 

IO.RDH 

004030 

IO.RPD 

004170 

IO.WCH 

004110 
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10.UCK 004050 SDSKUC 027000-R 
10.UDH 004040 SDSKWH 027014-R 
IO.UPD 004160 SDSTRB 042166-R 
10.UTD 004130 SDV1CE 027446-R 
1Q.UMD 000004 SDVPRM 027560-R 
MSGER8 042021 -R SDVUNT 047734-R 
0PTKT2 047232-R SEROCT 031600-R 
0PTST2 047260-R SEROUT 031536-R 
SECSZ 027472-R SFEBSF 116062-R 
SKPFRE 047724-R tFLCYL 047744-R 
SPEFN 000003 SFLRGS 040024-R 
TRKSZ 027470-R SFLSEC 047750-R 
UNTKT1 047232-R SFLTRK 047746-R 
UNTST* 047250-R SFMTEP 026502-R 
SALFLB 027450-R SFMTEX 031464-R 
SBUF 050042-R SFUNC 027476-R 
SBUFRX 1 1 0242— R SHDRFG 047742-R 
SBUFX 110242-R SHOMSK 031710-R 
SCONPB 027524-R $ INADD 04771 0-R 
SCR 02761 6-R SIOBUF 027510-R 
SCVTDA 031636-R SIOST C27554-R 
SCYL 047752-R SLBNH 027516-R 
SDEVHD 003334 SLBNL 027520-R 
SDSKIO 027020-R SLOGDV 027576-R 
SDSKPB 027474-R SMBSSZ 027572-R 
SDSkRH 027006-R SMDBSF 111062-R 
SDSKRT 027030-R SMESAG 031422-R 


SMGPRE 037632-R SMSG32 030714-R 
SMOVE 031744-R SMSG4 027662-R 
SMSGR8 031 366— R SMSG40 030742-R 
SMSGUR 03141 4— R SMSG41 031000-R 
SMSG1 027634-R SMSG42 031026-R 
SMSG10 0301 22— R SMSG43 031056-R 
SMSG11 030143-R SMSG44 031103-R 
SMSG12 030167-R SMSG45 031141-R 
SMSG13 0301 77-R SMSG5 027707-R 
SMSG15 030225-R SMSG58 031166-R 
SMSG16 030237-R SMSG59 031233-R 
SMSG17 030246-R SMSG6 027737-R 
SMSG18 030256-R SMSG6A 027762-R 
SMSG19 030301 -R SMSG6B 030004-R 
SMSG2 027645-R SMSG7 030025-R 
SMSG20 030324-R SMSG70 031274-R 
SMSG21 030351 -R SMSG71 031307-R 
SMSG22 030403-R SMSG72 031322-R 
SMSG23 030427-R SMSG73 031344-R 
SMSG24 030474-R SMSG8 030043-R 
SMSG25 030502-R SMSG8A 030070-R 
SMSG26 03051 0-R SMSG9 030076-R 
SMSG27 030540-R SMULT 032046-R 
SMSG28 030574-R SMVPAT 031504-R 
SMSG29 030626-R SMXCYL 027564-R 
SMSG30 030650-R SMXLBN 047736-R 
SMSG31 030671 -R SMXSEC 027570-R 


SEO 00c’ 


I 2 


SMXTRK 

027566-R 

SSRALL 

SNONSI 

002416 

SSRFES 

SPARSE 

034536-R 

SSRMDF 

SPAT 

027462-R 

SSRSDF 

SPHYDV 

027606-R 

SSRSSF 

SPRINT 

027256-R 

SSRTMF 

SPRMPT 

031 754— R 

SSRTRX 

SPRNTO 

027262-R 

SSRTSF 

SRDBSF 

032322-R 

SSRTUF 

SRDSSF 

033156-R 

SSRUDF 

SREAD 

027342-R 

SSSF 

SRETRY 

027466-R 

SSSFDT 

SREVNM 04771 2-R 

SSSFHD 

SRGBUF 

047760-R 

SSSFLB 

SRM80 

035746-R 

SSSFLN 

SRM80F 

037226-R 

SSSF SZ 

SRM80I 

044550-R 

SSTARS 

SRM80L 

043554-R 

SSTATS 

SRM80M 0421 04-R 

SSTCSR 

SRM80V 

040354-R 

SSTERL 

SRTCNT 

047732-R 

SSTFFE 

SR80SF 

0371 56-R 

SSTFOR 

SR80TF 

037220-R 

SSTIN 

SSCB 

047706-R 

SSTLIS 

SSEC 

047756-R 

SSTLOG 

SSMBSF 

033774-R 

SSTUNT 

SSNAME 

047726-R 

SSTVEC 


033654-R SSTVFL 035446-R 
033726-R SSWERL 047715-R 
033740-R SSWFFE 047721-R 
033764-R SSUFMT 047720-P 
034046-R SSW1NT 047722-R 
034166-R SSULOG 047717-R 
033612-R SSWLST 047716-R 
0341 32-R SSUMOD 047723-R 
034222-R SSYSIZ 003456 
033752-R STRK 047754-R 
1 1 3062— R STSTDA 0321 60-R 
001365 STSTDV 035054-R 
000013 STSTMX 03221 6— R 
027454-R SUBSSZ 027574-R 
000003 SUCB 047704-R 
027460-R SUDBSF 112062-R 
027620-R SUNT ID J32266-R 
027444-R SUPDMX 032120-R 
035222-R SVERIF 047725-R 
035500-R SULKER 027250-R 
035544-R SUTBSF 032730-R 
035550-R SUTSSF 033464-R 
035556-R SXFRSZ 027512-R 
035536— R SYESNO 047714-R 
035532— R 
034736-R 
035336-R 
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SEO 0022 


9 


1 

o 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 000000 

34 


.TITLE FMTROT - RM80 FORMATTER ROOT MODULE 
. IDENT 701.00/ 


COPYRIGHT (C) 1980 

DIGIiAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 1 7-AUG-80 

M. LEAVITT 09- JAN-81 


•MCALL ALUNSS.UCBDF* 

UCBDFS .'CALL MACRO TO DEFINE UCB OFFSETS 
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SEQ 0023 


36 

37 

38 

39 

40 

41 

42 


43 000000 

105067 

OOOOOOG 

$FMTEP: 

:CLRB 

SSWERL ; 

44 000004 

105067 

OOOOOOG 


CLRB 

SYESNO 

45 000010 

105067 

OOOOOOG 


CLRB 

SSWLST 

46 000014 

105067 

OOOOOOG 


CLRB 

SSWLOG ; 

47 000020 

105067 

OOOOOOG 


CLRB 

SSWFMT 

48 000024 

105067 

OOOOOOG 


CLRB 

SSWFFE 

49 000030 

105067 

OOOOOOG 


CLRB 

SSWINT ; 

50 000034 

105067 

OOOOOOG 


CLRB 

SSWMOD ; 

51 000040 

105067 

000001 G 


CLRB 

SSTATS+1 

52 000044 

005067 

OOOOOOG 


CLR 

SREVNM 

53 000050 

112767 

000001 OOOOOOG 


MOVB 

#1 .SVERIF 

54 000056 

012703 

000400 


MOV 

#256.. R3 

55 000062 

012700 

OOOOOOG 


MOV 

#$MDBSF ,R0 ; 

56 000066 

012720 

177777 

IS: 

MOV 

#-1 , (RO) ♦ 

57 000072 

005303 



DEC 

R3 

58 000074 

001374 



BNE 

is 

59 000076 

G127v/3 

000400 


MOV 

#256.. R3 

60 000102 

012700 

OOOOOOG 


MOV 

#SUDBSF ,R0 

61 000106 

012720 

177777 

2S: 

MOV 

#-1 , ( RO 5 ♦ ; 

62 000112 

005303 



DEC 

R3 ; 

63 000114 

001374 



BNE 

2S 

64 000116 

012703 

000100 


MOV 

#64.. R3 

65 000122 

012700 

OOOOOOG 


MOV 

#SFEBSF,RO ; 

66 000126 

012720 

177777 

3$: 

MOV 

#-1 , (RO) ♦ ; 

67 000132 

005303 



DEC 

R3 

68 000134 

001374 



BNE 

3S : 

69 000136 

012703 

OOOOOOC 


MOV 

#256.*<SSSFLN>.R3 

70 000142 

012700 

OOOOOOG 


MOV 

#SSSF ,R0 ; 

71 000146 

012720 

177777 

4S: 

MOV 

#•1 , < RO ) ; 

72 000152 

005303 



DEC 

R3 

73 000154 

001374 



BNE 

41 

74 000156 

012706 

000000' 


MOV 

#$FMTEP,SP 

75 000162 

026727 

OOOOOOG 001400 


CMP 

SSYS1Z. #40*24. ; 

76 000170 

103001 



BHIS 

51 

77 000172 

78 




CRASH 


79 000174 



5$: 

CALL 

SPARSE : 

80 000200 




ALUNSS 

#DSKLUN,$DV!CE,R1 

81 000220 

012700 

OOOOOOG 


MOV 

# SMSG4.R0 

82 000224 

103002 



BCC 

FMTPRM 

83 000226 

000167 

OOOOOOG 

6S: 

JMP 

SMSGWR 


84 

85 

86 

87 

88 

89 000232 

90 000236 

91 

92 


**-$FMTEP-FORMATTER ENTRY POINT 

THIS ROUTINE WILL CALL THE PARSER, SE’UP THE DISK PARAMETERS. CALL THE 
ACTUAL FORMATTING ROUTINE. & CLEAN UP AFTER THE FORMAT OPERATION. 


RESET ERROR LIMIT (DEFAULT IS 256.) 

RESET YES/NO RESPONSE 

RESET BAD BLOCK FILE LIST SWITCH 

RESET LOGICAL LIST SWITCH 

RESET FORMAT ENABLE SWITCH 

RESET FORMAT FE ENABLE SWITCH 

RESET MDBSF , UDBSF , SSF GENERATION SWITCH 

RESET THE MDBSF, SSF. & FEBSF MODIFY SWITCH 

CLEAR STATUS FLAGS 

CLEAR TEMPORARY STORAGE FOR REVISION NUMBER 

PRESET THE VERIFICATION COUNT 

LOCATIONS IN THE MDBSF BUFFER TO CLEAR 

BUFFER POINTER 

CLEAR A LOCATION 

COUNT THE LOCATION 

IF NE, NOT FINISHED 

LOCATIONS 10 CLEAR IN THE UDBSF BUFFER 

BUFFER POINTER 

CLEAR A LOCATION 

COUNT THE LOCATION 

IF NE, NOT FINISHED 

LOCATIONS TO CLEAR IN THE FE BSF BUFFER 

BUFFER POINTER 

CLEAR A LOCATION 

COUNT THE LOCATION 

IF NE. NOT FINISHED 

; NUMBER OF SSF LOCATIONS 
BUFFER POINTER 
CLEAR A LOCATION 
COUNT THE LOCATION 
IF NE. NOT FINISHED 
RESET STACK POINTER 
IS THERE AT LEAST 24K? 

IF HIS. YES 

ELSE CRASH THE SYSTEM!! 

PROMPT AND PARSE COMMAND LINE 
; ASSIGN LUN TO DISK 
ASSUME DEVICE NOT IN SYSTEM 
IF CC. DEVICE IN SYSTEM 
EXIT WITH WARNING STATUS 


ATTACH THE DISK 


012703 OOOOOOC 


FMTPRM: MOV 
CALL 


#10. ATT ! 1Q.UMD.R3 
SDSK10 


; ATTACH DISK FOR FORMATTING 


SEO C t 
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93 

94 

95 

96 

97 000242 

98 000246 

99 000252 

100 000256 

101 000262 
102 000266 

103 000272 

104 

105 


PRESET THE DISK PARAMETERS, RETURN THE HEADS HOME AND 
CALL THE ACTUAL FORMAT ROUflNE. 


005067 

OOOOOOG 

# 

CLR 

SSEC 

005067 

OOOOOOG 


CLR 

$TRK 

005067 

OOOOOOG 


CLR 

SC YL 




CALL 

SHOMSK 




CALL 

SRM80 




CALL 

SHOMSK 

000167 

OOOOOOG 


JMP 

SFMTEX 

000000' 


.END 

SFMTEP 



; RESET DISK PARAMETERS 


DO A RECALIBRATE 
CALL THE FORMATTER 
DO A RECAL 
EXIT GRACEFULLY 



M 2 
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SYMBOL TABLE 


CSSORE= 002000 


SMYSZ = 

001400 

UC.ALG= 000200 

U.CU3 000014 

U2.NEC= 004000 


CSSRSH= 177564 


S1.8EL= 

000400 

UC.ATT= 000010 

U.CU4 000016 

U2.PRV= 000010 


CSSTTY= 177564 


S1.CT0= 

000040 

UC.KIL= 000004 

U.DCB Q00000 

U2.RMT= 020000 


DSKLUN= ****** 

GX 

S1.CTS= 

010000 

UC.LGHs 000003 

U.FCDE= 000040 

U2.R04= 100000 


DV,CCL= 000002 


S1.DEC= 

002000 

UC.NPR= 000100 

U.FNUM= 000036 

U2.SCS= 000004 


DV.COM= 020000 


S1.DPR= 

001000 

UC.PUFr 000020 

U.FPS = 000044 

U2.SLV= 000200 


DV.D1R= 000010 


S1.DSI= 

004000 

UC.QUE= 000040 

U.KCSR= 000032 

U2.VT5= 000002 


DV.F 1 1 = 040000 


S1.ESC= 

000004 

US.AB0= 000001 

U.KCS6= 000034 

U2.7' <= 010000 


DV.1SP= 002000 


SI . IBF = 

100000 

US.BSP: 000002 

U.LUIC 177774 

VSSCTR= 000400 


DV.MBC= 000400 


S1.IBY= 

000200 

US.BSY= 000200 

U.OUN 177776 

VSSRSN- 000032 


DV.MNT= 100000 


S1.0BY= 

000100 

US.CRU= 000004 

U.RED 000002 

XJSDBT - 000000 


DV.MXD= 000100 


S1.RAL= 

000010 

US.DSB= 000010 

U.RPS = 000042 

SC YL = ****** 

GX 

DV.OSP= 004000 


S1.RNE= 

000020 

US.ECH= 000002 

U.SCB 000020 

SDSK 10= ****** 

GX 

DV.PSE= 010000 


S1.RST= 

000001 

US.F0R= 000040 

U.STS 000005 

SO V I f E = ****** 

GX 

DV.PEC= 000001 


S1.RUB= 

000002 

US.FRK= 000002 

U.ST2 000007 

SFEBSF = ****** 

GX 

DV.SD1= 000020 


S1.USI= 

020000 

US.KPF= 000001 

U.TCHP 000042 

SFMTEP OOOOOORG 

DV.SQD= 000040 


S2.ACR= 

000001 

US.LAB= 000004 

U.TCVP 000043 

$FMTEX= ****** 

GX 

DV.SUL= 001000 


S2.BRQ= 

000020 

US.MDE= 000002 

U.TFLK 000040 

$HOMSX= ****** 

GX 

DV.TTY= 000004 


S2.CR = 

000010 

US.MDM= 000020 

U.TFRQ 000037 

SMDBSF= ****** 

GX 

DV.UMD= 000200 


S2.FDX= 

100000 

US.MNT= 000100 

U.TLPP 000036 

SMSGUR= ****** 

GX 

DSS1AG= 000000 


S2.FLF= 

040000 

US.0FL= 000001 

U.TMTI 000047 

SMSG4 = ****** 

GX 

DSSL11= 000001 


S2.HFF= 

020000 

US.0UT= 000001 

U.TSTA 000026 

$PARSE= ****** 

GX 

FMTPRM 000232R 

S2.HFL= 

003400 

US.PUB= 000004 

U.TTAB 000034 

SREVNM= ****** 

GX 

HSSRTZ= 000074 


S2.HHT= 

01G000 

US.PWF= 000010 

U.TTYP 000046 

SRM80 = ****** 

GX 

IO.ATT= ****** 

GX 

S2.IRQ= 

000200 

US.RED= 000002 

U.TUX 000024 

SSEC = ****** 

GX 

IO.UMD= ****** 

GX 

S2.0RQ= 

000100 

US.SHR= 000001 

U.UIC 000044 

SSSF = ****** 

GX 

KSSCNT= 177546 


S2.SR0= 

000040 

US.SPU= 000002 

U.UNIT 000006 

$SSFLN= ****** 

GX 

KSSCSR= 177546 


S2.VFL= 

004000 

US.UMD- 000010 

U.VCB = 000034 

$STATS= ****** 

GX 

KSS1EN= 000115 


S2.URA= 


US.VV = 000001 

U2.AT.= 000020 

SSUERL= ****** 

GX 

KSSLDC= 000001 


S2.URB= 


US.WCKs 000010 

U2.CRT= 002000 

SSUFFE= ****** 

GX 

K$$TPS= 000074 


S3.BCC= 

020000 

U.ACP = 000032 

U2.DHl= 100000 

SSUFMT= ****** 

GX 

LDSTT = 000000 


S3.DA0= 

040000 

U.ATT 000022 

U2.DJ1= 040000 

SSUINT= ****** 

GX 

LS$DRV= 000000 


S3.PCU= 

100000 

U.BUF 000024 

U2.DZ1= 000100 

SSULOG= ****** 

GX 

MS$CRB= 000124 


S3.RAL= 

000010 

U.CBF = 000032 

U2.ESC= 001000 

SSULST= ****** 

GX 

NSSLDV= 000001 


S3.RCU= 

000400 

U.CLI 177772 

U2.HFF= 010000 

SSUMOD= ****** 

GX 

PSSNIC= 177564 


S3.TAB= 

000100 

U.CNT 000030 

U2.HLD= 000040 

SSYSIZ= ****** 

GX 

R$SDER= 000000 


S3.VER= 

010000 

U.CTL 000004 

U2.LOG= 000400 

STRK = ****** 

GX 

RSSM1 1 = 000001 


S3. UAL = 

004000 

U.CTYP 000050 

U2.LUC= 000001 

SUDBSF= ****** 

GX 

RSS11M= 000000 


S3.UES= 

000040 

U.CU1 000010 

U2.L3S= 000004 

$VER1F= ****** 

GX 

RS$11S= 000000 


S3.8BC= 

000200 

U.CU2 000012 

U2.L8S= 010000 

$YESNO= ****** 

GX 

S$$URG= 000000 


TS$MIN= 







. ABS. 177776 000 

000276 001 

ERRORS DETECTED: 0 


SEQ C 


VIRTUAL MEMORY USED: 3572 UORDS ( 14 PAGES) 

DYNAMIC MEMORY: 7942 UORDS ( 30 PAGES) 

ELAPSED TIME: 00:00:18 

L300.20]FMTROT,[300.30]FMTROT=C1,1]EXEMC/Ml.[1.60]RSXMC7PA:1.[300.10]FMTROT 


~‘0'00>NO > UiJ v MM-^0<0(XINO'^X'MrV)-‘0<0<BS(>v/ii v MIV 


0013 
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SEQ 0026 


1 


N 2 


.TITLE FMTIO - 1/0 ROUTINES 
. 1 DENT /01.00/ 

; COPYRIGHT (C> 1980 

; DIGITAL EQUIPMENT CORPORATION. MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; VERSION 01.00 

; C. HESS 14-AUG-80 

; M. LEAVITT 15-0CT-80 

•MCALL DIRS 



33 

34 

35 

36 

37 

38 

39 

4.0 

4.1 

4.2 

4.3 

4 . 4 . 

45 

4.6 

4.7 

4.8 

4.9 

50 

51 

52 

53 
54 , 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 000000 

76 000004 

77 

78 000006 

79 000012 

80 

81 000014 

82 000020 

83 000024 

84 000030 

85 000036 

86 000040 

87 000046 

88 000050 

89 000056 


012703 000000C 
000405 

012703 OOOOOOC 
000402 

012703 OOOOOOC 
010367 OOOOOOC 
010567 OOOOOOC 

103010 

022767 0000006 OOOOOOC 
001770 

016767 OOOOOOC OOOOOOC 
000406 


••-SDSKIO-ISSUE QIO TO DISK 

**-SDSKRH-I SSUE QIO TO READ HEADER t DATA 

••-SDSKRT-RETRY QIO TO DISK 

••-SDSKWH-I SSUE QIO TO WRITE HEADER l DATA 

••-SDSKWC-ISSUE QIO TO WRITE CHECK HEADER t DATA 

SUBROUTINES TO ISSUE I/O FUNCTIONS TO A DEVICE. 

INPUTS: 

R3 = I/O FUNCTION CODE (IF ENTRY IS AT SDSKIO) 

R5 = BUFFER ADDRESS 

ENTRY AT SDSKRT ASSUMES THAT THE DPB IS ALREADY SETUP. 
OUTPUTS: 

THE QIO DIRECTIVE IS ISSUED. IF THERE WERE NO ERRORS. THE 
CARRY BIT WILL BE CLEARED. IF THERE WAS A PARITY ERROR 
(IE.VER) OR A BAD BLOCK ERROR (IE.BBE) CARRY WILL BE SET. 

IF WE ARE FORMATTING A "DB" DISK A BLOCK NUMBER VIOLATION 
(IE.BLK) MAY HAPPEN WHEN WE ARE FORMATTING THE LAST SECTOR. 
FOR THIS CASE CARRY WILL BE RETURNED CLEAR. THE SAME APPLIES 
IF WE ARE RE-WRITING THE LAST TRACK OF ••DM” AND “DR” DISKS. 
ALSO SPECIFIC ERROR MESSAGES WILL BE PRINTED WHEN THE 
FOLLOWING ERRORS ARE DETECTED: 

1. IE.HWR 

2. 1E.DNR 

3. IE.DAA 

4. IE.FHE 

5. IE.PRI 

6. IE.OFL 

ANY OTHER ERROR CODE WILL BE REPORTED AS “UNRECOVERABLE”. 

NOTE: MOST FUNCTIONS ARE ISSUED WITH THE DIAGNOSTIC SUB-FUNCTION 
BIT (IQ.UMD) SET. FOR THESE FUNCTIONS THE FUNCTION WILL 
ALWAYS RETURN SUCCESS (CARRY CLEAR) AND THE USER MUST TEST 
THE PROPER BIT IN THE REGISTER BUFFER (SRGBUF) TO DETERMINE 
IF THERE WAS ANY ERRORS. 


.ENA8L LSB 
SDSKWC: :MOV 
BR 

SDSKRH: :MOV 
BR 


SDSKWH: :HOV 
SDSKIO: :MOV 
MOV 

SDSKRT: :DIRS 
BCC 
CMP 
BEQ 
MOV 
BR 


#10. WCH! IQ.UMD 
SDSKIO 

#10. RDH! IQ.UMD 
SDSKIO 

#I0.WDH! IQ.UMD 

R3.SFUNC 

R5.SI0BUF 

#SDSKPB 

IS 

#IE .UPN.SDSW 

SDSKRT 

SDSW.SIOST 

2S 


,R3 ; WRITE CHECK HEADER & DATA 

; GO TO THE COMMON QIO ROUTINE 

,R3 .‘READ DISK HEADER(S) 

;BR INTO COMMON DISK ROUTINE 

.R3 .’WRITE DISK HEADER(S) 

;STORE FUNCTION CODE IN DPB 
;STORE BUFFER ADDRESS IN DPB 
.’ISSUE THE QIOWS 
;IF CC OK 

,’POCL SPACE AVAILABLE? 

; IF EQ NO. TRY AGAIN 
.’COPY DSW INTO STATUS BLOC- 
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t 3 


SEO 0028 


90 000060 

000241 


1$: 

CLC 


ASSUME NO ERROR 

91 000062 

105767 

OOOOOOG 


TST8 

SIOST 

ERROR? 

92 000066 

100016 



BPL 

6$ 

IF PL NO 

93 000070 

105067 

000001 G 


CLRB 

SIOST * 1 

YES, CLEAR THE HIGH BYTE 

94 000074 

012700 

000204’ 

2S: 

MOV 

#9$,R0 

SET POINTER TO ERROR TABLE 

95 000100 

021067 

OOOOOOG 

3$: 

CMP 

(RO) .SIOST 

SCAN ERROR TABLE TO FIND ERROR TYPE 

96 000104 

001403 



BEQ 

4$ 

IF EO MATCH 

97 000106 

022020 



CMP 

(RO) ♦, (RO) ♦ 

STEP TO NEXT ENTRY 

98 000110 

005710 



T ST 

(RO) 

END OF TABLE? 

99 000112 

001372 



BNE 

3$ 

IF NE NO 

100 000114 

016000 

000002 

4$ : 

MOV 

2 (RO) .RO 

GET ADRS OF ERROR MESSAGE 

101 000120 

001002 



BNE 

7S 

IF NE PRINT MESSAGE 

102 000122 

000261 


5$: 

SEC 


ELSE JUST SET CARRY AND EXIT 

103 000124 

104 

105 000126 

000207 


6$: 

RETURN 



02002 > 

OOOOOOG 

7$: 

CMP 

R0,#SMSG8 

"UNRECOVERABLE” MESSAGE? 

106 000132 

001022 



BNE 

8$ 

IF NE NO 

107 000134 

022767 

OOOOOOC OOOOOOG 


CMP 

#IE.BLK&377.SI0S 

; YES, IS THIS A BLOCK # VIOLATION? 
IF EQ YES 

108 000142 

001767 



BEQ 

5S 

109 000144 

012700 

OOOOOOG 


MOV 

#SMSG8A.R0 

GET BUFFER ADDRESS FOR ERROR CODE 

110 000150 

005467 

OOOOOOG 


NEG 

SIOST 

MAKE ERROR CODE POSITIVE 

111 000154 

116701 

OOOOOOG 


MOVB 

SIOST, R1 

GET ERROR CODE 

112 000160 

005002 



CLR 

R2 

SUPRESS LEADING O'S 

113 000162 

004767 

OOOOOOG 


CALL 

SCBDMG 

CONVERT TO DECIMAL 

114 000166 

112720 

000056 


MOVB 

#’ (RO)* 

(RO) 

STUFF DECIMAL INDICATOR 

115 000172 

105010 



CLRB 

TERMINATE STRING 

GET ADDRESS OF "UNRECOVERABLE” MESSAGE 

116 000174 

012700 

OOOOOOG 


MOV 

#SMSG8.R0 

117 000200 

000167 

OOOOOOG 

8S: 

JMP 

SMESAG 

PRINT MESSAGE AND EXIT 


118 

119 

120 
121 
122 

123 

124 

125 000204 

126 000210 

127 000214 

128 000220 

129 000224 

130 000230 

131 000234 

132 000240 

133 000244 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 


OOOOOOG 

ooooooc 

ooooooc 

ooooooc 

ooooooc 

ooooooc 

ooooooc 

ooooooc 

000000 


OOOOOOG 

OOOOOOG 

OOOOOOG 

000000 

000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


ERROR CODE AND ERROR MESSAGE TABLE. A ZERO WORD 
IN THE MESSAGE FIELD INDICATES THAT THE ERROR WILL 
BE HANDLED BY THE CALLING ROUTINE. 


.WORD 

IE.HWR. 

SMSG13 

HANDLER NOT RESIDENT 

.WORD 

IE.DNR4377, 

SMSG10 

DEVICE NOT READY 

.WORD 

IE.DAA4377 , 

SMSG5 

DEVICE ALREADY ATTACHED 

.WORD 

IE.VERS377, 

0 

PARITY ERROR 

.WORD 

IE.BBEK377, 

0 

BAD BLOCK 

.WORD 

IE.FHE1377. 

SMSG20 

FATAL HARDWARE ERROR 

.WORD 

IE.PRH377, 

SMSG22 

PRIVLEGE VIOLATION 

.WORD 

IE.OFL&377. 

SMSG7 

DEVICE OFFLINE 

.WORD 

0, 

SMSG8 

END OF TABLE 

SWLKER-SET 

WRITE LOCK 

ERROR 



THIS ROUTINE WILL SET THE WRITE LOCK ERROR MESSAGE AND EXIT 
WITH A SEVERE ERROR STATUS SET. 

INPUTS: 

NONE. 

OUTPUTS: 

RO = WRITE LOCK ERROR MESSAGE ADDRESS 
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D 3 


SEC 0025 


147 

148 

149 

150 

151 

152 

153 

154 

1 55 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 


000250 

000254 


012700 

000751 


OOOOOOG 


SWLKER: :MOV 
BR 

.DSABl l SB 


#SMSG9.R0 ; SET WRITE LOCK MESSAGE ADDRESS 

8S .‘EXIT WITH SEVERE ERROR STATUS 


••-SPRINT-PRINT MESSAGE ON THE USERS TJ: 

••-SPRNTO-PRINT MESSAGE ON THE USERS TJ: (ALTERNATE ENTRY) 

I NPUT S • 

RO = MESSAGE ADDRESS 

R1 = CARRIAGE CONTROL (FOR SPRNTO ENTRY ONLY) 
OUTPUTS: 

MESSAGE SENT TO TI: 


166 

000256 

012701 

000040 

SPRINT: :MOV 

167 

000262 

012705 

OOOOOOG 

SPRNTO: :MOV 

168 

000266 

012765 

OOOOOOG OOOOOOG 

MOV 

169 

000274 

010065 

OOOOOOG 

MOV 

170 

000300 

005065 

000002G 

CLR 

171 

000304 

010165 

000004G 

MOV 

172 

000310 

105720 


IS: TSTB 

173 

000312 

001403 


BEQ 

174 

000314 

005265 

000002G 

INC 

175 

000320 

000773 


BR 

176 





177 

000322 



2S: DIRS 

178 

000326 

103004 


BCC 

179 

000330 

022767 

OOOOOOG OOOOOOG 

CMP 

180 

000336 

001771 


BEQ 

181 

000340 

000207 


3S: RETURN 


#40. R1 ; SET 1 LINE FEED CARRIAGE CONTROL 

#$C0NPB.R5 :GET OUTPUT DPB ADDRESS 

#I0.WVB.Q.10FN(R5) ; SE T FUNCTION CODE 

~ ; STORE MESSAGE ADDRESS IN DPB 

; CLEAR MESSAGE LENGTH COUNTER IN DPB 


RO,Q.10PL(R5> 

Q.IOPL*2(R5> _ 

R1 ,Q. I OPL ♦AIRS) ;SET CARRIAGE CONTROL 


'> l i * 

( R0> ♦ 

2S 

O.IOPL»2(R5) 

1$ 

R5 

31 

flE.UPN.SDSW 

2S 


;END OF MESSAGE STRING? 

; IF EQ YES 

;N0. CALCULATE MESSAGE LENGTH 
;GET NEXT CHARACTER 

; PRINT THE MESSAGE 
; IF CC OK 

;POOL SPACE AVAILABLE? 

; IF EQ NO. TRY AGAIN 


182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 
203 


000342 

000346 

000354 


012705 

012765 

012765 


••-SREAD-READ A LINE FROM THE TERMINAL 

THIS SUBROUTINE WILL READ A LINE FROM THE CONSOLE 
DEVICE. 

INPUTS: 

NONE. 

OUTPUTS: 

CARRY SET IF ANY ERROR AND 
RO -= ERROR MESSAGE ADDRESS 

CARRY CLEAR IF READ OK 


OOOOOOG (READ: : MOV #$C0NPB,R5 ;GET INPUT DPB ADDRESS 

OOOOOOG OOOOOOG MOV #IO.RVB,Q. I0FN(R5> ;LOAD FUNCTION CODE 

OOOOOOG OOOOOOG MOV fSBUTRX.Q. IOPL (R5) .-LOAD BUFFER ADDRESS 
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SEQ 0030 


204 000362 012765 000120 000002G 

205 000370 

206 000374 103414 

207 000376 122767 000000C OOOOOOG 

208 000404 001406 

209 000406 105767 OOOOOOG 

210 000412 002405 

211 000414 105767 000001G 


#80. ,Q. I OPL ♦ 2 ( R5 ) ;LOAD MAX NUMBER 0 

R5 ;READ IN THE LINE 

2$ ; IF CS DIRECTIVE ERROR 

#IE .E0F8377.SI0ST ;END OF FILE SEEN? 


BYTES TO READ 


IS 

SIOST 

2S 


212 000420 

001405 



BEQ 

3S 

213 000422 

000241 


IS: 

CLC 


214 000424 

215 

000207 



RETURN 


216 000426 

012700 

OOOOOOG 

2S: 

MOV 

#SMSG29.R0 

217 000432 

000402 



BR 

4S 

218 000434 

012700 

OOOOOOG 

5S: 

MOV 

#SMSG30,R0 

219 000440 

000261 


4S : 

SEC 

220 000442 

221 

000207 



RETURN 


222 

000001 


.END 




» » L'YV V» * ILL JLL'I. 

; IF EQ Y§ S 
; I/O ERROR? 

; IF LT YES 

;CHECK FOR A TERMINATED LINE 
; IF EQ BUFFER OVERFLOWED 
; INDICATE READ WAS OK 


.•COMMAND I/O ERROR 

; COMMAND TOO LONG 
; SE T ERROR RETURN 



F 5 
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SYMBOL TABLE 


IE.BBE= ** 

•*• GX 

IE . VER= ** 

*** GX 

SCBDMG= 

IE.BLK= ** 

*** GX 

IO.RDH= ** 

*** GX 

SCONPB= 

IE.DAA= ** 

*** GX 

10.RVB= ** 

*** GX 

SDSK10 

IE.DNR= ♦* 

*** GX 

lO.WCHs ** 

*** GX 

SDSKPB= 

IE .EOF = *• 

*** GX 

10,WDH= ** 

*** GX 

SDSKRH 

IE .FHE= ** 

*** GX 

IO.WVB= ** 

*** GX 

SDSKRT 

IE.HWR= ** 

*** GX 

IQ.UMD= ** 

*** GX 

SDSKWC 

IE .OFL= •* 

*** GX 

Q . 10FN= ** 

*** GX 

SDSKWH 

IE .PR I = •* 

•** GX 

G.IOPL-- ** 

*** GX 

SDSW = 

IE.UPN= ** 

GX 

$BUFRX= ** 

*** GX 

SFUNC = 


. ABS. 000000 000 

000444 001 

ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 481 WORDS ( 2 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 
ELAPSED TIME: 00:00:10 
[300.203FMT 10.C300.303FMT 10=C 300, 103FMT 10 


4 



$IQBUF= ** 

*** GX 

SMSG5 = 

****** GX 

****** GX 

HOST = ** 

*** GX 

SMSG7 = 

****** GX 

000020RG 

SMESAG= ** 

eycr.iA- ** 

*** GX 

SMSG8 = 


« w V V « V J 

000006RG 

>n j o i y - w * 

SMSG13= ** 

,wt uX 

*** GX 

•nbvjDA- 

$MSG9 = 

****** GX 

000030RG 

SMSG20= ** 

*** GX 

SPRINT 

000256RG 

OOOOOORG 

$MSG22= ** 

*** GX 

SPRNTO 

000262RG 

000014RG 

SMSG29= ** 

*** GX 

SREAD 

000342RG 


$MSG30= ** 

*** GX 

SWLXER 

000250RG 


GX 


SEQ 00* 



> /< oa IV> -• O >0 00 ^ ^ O OB O' X- vh fv» — • O <0 09 - J ^ vwrvj — • O 'O 00 ->< o vn 
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G 3 


SEO 0032 


1 


000000 


004110 

004160 

004170 

004200 

004210 


TITLE FMTDAT - FORMAT DATA BASE 
IDENT /01.00/ 


COPYRIGHT (C) 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 1 7-AUG-80 

M. LEAVITT 26-N0V-80 


.MCALL UMDIOS 

UMDIOi DEFSG 


.'CALL MACRO TO DEFINE 
.‘CODES GLOBALLY 


DIAGNOSTIC FUNCTION 


SPECIAL OPCODES TO BE USED WITH THE FUNCTIONAL 'DR* DRIVER. NOTE 
THAT THESE FUNCTIONS ARE DEFINED IN THE SPECIAL MANUFACTURING 
•DR* DRIVER. 


IO.WCH 
IO.WPD 
IO.RPD 
IO.FER 
10. FEU 


1 0*400*1 1 0 
10*400*160 
10*400*170 
10*400*200 
10*400*210 


WRITE CHECK HEADER t DATA (DIAGNOSTIC) 
WRITE PHYSICAL BLOCKS (DIAGNOSTIC) 

READ PHYSICAL BLOCKS (DIAGNOSTIC) 

READ FE BLOCKS (DIAGNOSTIC) 

WRITE FE BLOCKS (DIAGNOSTIC) 
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SEO 0033 


47 

000001 


DSKEFN 

z 

1 

48 

000002 


conefn 

z 

2 

49 

000003 


SPEFN 

zz 

3 

50 

000002 


CONLUN 

z 

2 

51 

000003 


DSKLUN 

zz 

3 

52 

000037 


DEFSEC 

z 

31. 

53 

000003 


sssfln 

zz 

3 

54 

00001 3 


SSSFHD 

:: 

11. 

55 

56 

57 000000 

001365 


SSSFDT 

z z 

<256.*SSSFLN> 

000 

377 

SSTATS 

.-.BYTE 

0.-1 

58 000002 

104 

122 

SDVICE 

•-.ASCII 

DR , „ 

59 000004 

000003 

131715 

SALFLB 

.-.WORD 

3,131715 

60 000010 

000003 

131656 

SSSFLB 

: .WORD 

3,131656 

61 000014 

000005 


SSSFSZ 

.-.WORD 

5 

62 000016 

155555 

133333 

SPAT: : 

.WORD 

155555.133333 

63 000022 

000024 


sretry 

.‘.WORD 

20. 

64 000024 

040200 


TRKSZ: 

.WORD 

516. *32. 

65 000026 

001004 


SECSZ: 

.WORD 

516. 


81 

82 

83 

84 000060 

85 000062 

86 000064 

87 000066 

88 000070 

89 000072 

90 000074 

91 000076 

92 000100 

93 000102 

94 

95 000110 

96 

97 

98 

99 
100 

101 000114 


event flag for disk i/o 

EVENT FLAG FOR CONSOLE I/O 

EVENT FLAG FOR SPAWN DIRECTIVE 

LUN FOR CONSOLE I/O 

LUN FOR DISK I/O 

DEFAULT SECTOR FOR SKIP FLAG 

BLOCK LENGTH OF SKIP SEC 10R FILE 

NUMBER OF WORDS IN HEADER OF SKIP SECTOR FILE 

F HD .‘NUMBER OF WORDS IN DATA OF SKIP SECTOR FRE 

FORMAT STATUS. MCR LINE FLAG 
DISK NAME (ASCII) 

ADDRESS OF ALTERNATE DEC STD 144 TRACK 
ADDRESS OF START OF SKIP SECTOR FILE 
NUMBER OF COPIES OF SKIP SECTOR FILE 
DISK FORMAT PATTERN 
NUMBER OF RE-VERIFICATION ATTEMPTS 
RM80 TRACK SIZE (IN BYTES) 

RM80 SECTOR SIZE (INCLUDING HEADER) 


66 

67 

68 

69 000030 



;DISK I/O DIRECTIVE PARAMETER BLOCK (QIOWS DIRECTIVE) 

003 

014 

SDSKPB: : .BYTE 

3.12. 

MACRO DIC, DPB SIZE 

70 000032 

000000 


SFUNC:: .WORD 

0 

FUNCTION CODE 

71 000034 

000003 


.WORD 

DSKLUN 

LUN 

72 000036 

001 

000 

.BYTE 

DSKEFN, 0 

event flag, priority 

73 000040 

000110* 


.WORD 

SIOST 

STATUS BLOCK ADDRESS 

74 000042 

000000 


.WORD 

0 

AST ADDRESS 

75 000044 

000000 


SIOBUF : : .WORD 

0 

BUFFER ADDRESS 

76 000046 

000000 


SXFRSZ : : .WORD 

0 

TRANSFER SIZE IN BYTES 

77 000050 

000000 


.WORD 

0 

NOT USED 

78 000052 

000000 


SLBNH; : .WORD 

0 

HIGH ORDER LOGICAL BLOCK NUMBER 

79 000054 

000000 


SLBNL : : .WORD 

0 

LOW ORDER LOGICAL BLOCK NUMBER 

80 000056 

000054* 


.WORD 

SRGBUF 

REGISTER BUFFER ADDRESS 


.-CONSOLE I/O DIRECTIVE PARAMETER BLOCK (Q10WS DIRECTIVE! 


003 014 

000000 
000002 
002 000 

000110 ’ 

000000 

000000 

000000 

000000 

000000 000000 000000 
000000 000000 


000003 131656 


SCONPB: : .BYTE 
.WORD 
.WORD 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

SIOST : : .WORD 


3.12. 

0 

CONLUN 

CONEFN.O 

SIOST 

0 

0 

0 

0 

0 . 0,0 


; DRIVE PARAMETER TABLE 


SDVPRM: : .WORD 3.131656 


; MACRO DIC. DPB SIZE 
; FUNCTION CODE 
; CONSOLE LUN 

; CONSOLE EVENT FLAG. PRIORITY ZERO 
; STATUS BLOCK ADDRESS 
; AST ADDRESS 
; BUFFER ADDRESS 
; MESSAGE B»TE COUNT 
; CARRIAGE CONTROL 
.’ NOT USED 

; I/O STATUS BLOCK 


; MAXIMUM LBN 


; THE ORDER OF THIS TABLE MUST NOT CHANGE 
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SCO OOU 


104 

105 000120 

106 000122 

107 000124 

108 000126 
109 000150 


000000 

000000 

000000 

000012 

000024 


IMXCYL 

SMXTRK 

SMXSEC 

SMBSSZ 

*U8SSZ 


: .WORD 
: .WORD 
: .WORD 
WORD 
: .WORD 


# OF CYLINDERS PER 01 SK 
« OF TRACKS PER CYLINDER 

# OF SECTORS PER TRACK 

# OF BLOCKS IN MDBSF 
f OF BLOCKS IN UD8SF 


111 

112 


; ♦ 

; MACRC 

) FORMAT 

: LBF 

113 

114 


; WHERE 

’lbn = 

MAX 

115 



CYL = 

MAX 

116 



TRK = 

MAX 

117 



SEC = 

MAX 

118 

119 

120 


’.MACRO 

DVPRM 

LBN 

121 

122 

123 

124 

125 

126 

127 000132 


• ENDM 

SLOGDV 

.WORD 

.WORD 

.BYTE 

.BYTE 

DVPRM 

: DVPRM 

LBN 

CYL 

SEC 

TRK 

128 000142 


SPHYDV 

: DVPRM 

<3. 

129 

130 000000 


.PSECT 

SSS$8F 

.D 

131 

132 000000 

000000 

SUCB: : 

.WORD 

0 

133 000002 

000000 

SSCB: : 

.WORD 

0 

134 000004 

000000 

SINADD 

: .WORD 

0 

135 000006 

000000 

SREVNM 

: .WORD 

0 

136 000010 

000 

SYESNO 

: .BYTE 

0 

137 000011 

000 

SSWERL 

.-.BYTE 

0 

138 000012 

000 

SSWLST 

: .BYTE 

0 

139 000013 

000 

SSWLOG 

.'.BYTE 

0 

140 000014 

000 

SSWFMT 

: .BYTE 

0 

141 000015 

000 

SSWFFE 

: .BYTE 

0 

142 000016 

000 

SSWINT 

: .BYTE 

0 

143 000017 

000 

SSWMOD 

: .BYTE 

0 

144 000020 

000 

SKPFRE 

.'.BYTE 

0 

145 000021 

000 

SVER1F 

: .BYTE 

0 

146 

147 

148 000022 

000000 000000 
000000 

000000 

.EVEN 

SSNAMl 

..WORD 

0.0 

149 000026 

SRTCNT 

: .WORD 

0 

150 000030 

tDVUNT 

: .WORD 

0 


LBN. CYL. TRK. SEC 


000052 

000036 


000000 000000 
000000 


153 

000040 


S 


154 

000042 


M 


155 

000044 

1 

ll 


156 

000046 

i 

i 



157 000050 

158 000052 


000000 

000000 


JMXLBN 
SHDRFG 
SFLCYL 
SHIRK 
1FLSEC 
1CYL:: 
tTRK : : 
SSEC : : 


LOGICAL DEVICE GEOMETRf 
PHYSICAL DEVICE GEOMETRY 


ADDRESS OF CURRENT UC8 
ADDRESS OF CURRECT SCB 
ADDRESS OF INTERRUPT VECTOR 

TEMP. STORAGE FOR SSF REVISION NUMBER (SSSF»10> 
YES/NO CONTINUE RESPONSE 
ERROR LIMIT 

LIST BAD BLOCK FILE CONTENTS 
LOGICAL LIST SWITCH 
ENABLE FORMAT FLAG 
ENABLE FORMAT FE CYLINDERS ONLY 
CREATE THE MDBSF. UDBSF . AND SSF 
MODIFY THE SSF. UDBSF. t FEBSF 
SKIP SECTOR FLAG 

NUMBER OF TIMES TO VERIFY THE TRACK 


HDA SERIAL NUMBER 
RETRY COUNT 
DISK UNIT NUMBER 
MAXIMUM BLOCK NUMBER 
HEADER DEFECT FLAG 
FAILING CYLINDER ADDRESS 
" TRACK 
" SECTOR 

current cylinder 

CURRENT TRACK 
CURRENT SECTOR 


.'BUFFERS AND DATA STORAGE AREA 
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SEQ 00 55 


161 

162 000054 


SRGBUF : : .BLKU 

25. 

; RM80 REGISTER RETURN BUFFER 

165 000136 


SBUF : : .BLKU 

52. *258. 

; BUFFER FOR DISK I/O 

164 040336 


SBUFRX: : .BLKU 

200. 

; DIRECTIVE BUFFER 

165 

166 

167 

168 

169 041156 

040336’ 

IBUFX==IBUFRX 


; BUFFER FOR DIRECTIVE USE 


;BAD SECTOR AND 

DEFECT STORAGE 

AREA 


MDBS' : : .BLKU 

256. 

; BUFFER FOR T6 BIT MDBSF 

170 042156 


SUDBSF : : .BLKU 

256. 

; BUFFER FOR 16 BIT UDBSF 

171 043156 


SSSF : : .BLKU 

256.*<SSSFLN> 

; BUFFER FOR 16 BIT SKIP SECTOR FILE 

17? 046156 

173 

174 


SFEBSF ::.BLKU 

64. 

; BUFFER FOR FE CYLINDER DEFECTS 

000001 

.END 
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SYMBOL TABLE 

CONEFN= 000002 IO.WCH= 0041 1 0 G SDVPRM 0001HRG 

CONLUN= 000002 IO.UCK= 004050 G SDVUNT 000030RG 

DEFSEC= 000037 10.UDH= 004040 G SFEBSF 0461 56RG 

DS*CEFN= 000001 IO.WPD= 004160 G SFLCYL 000040RG 

DSKLUN= 000003 G IO.WTD= 004130 G SFLSEC 000044RG 

IO.BLS= 004010 G IQ.UrtD* 000004 G SFLTRK 000042RG 

IO.DGN= 004150 G SECSZ 000026RG SFUNC 000032RG 

10. F ER= 004200 G SKPFRE 000020RG 002 SHDRFG 000036RG 

10.FEU= 004210 G SPEFN = 000003 G JINADD 000004RG 

IO.HMS- 004000 G TRKSZ 000024RG SIOBUF 000044RG 

IO.LPC= 004100 G SALFLB 000004RG SIOST 000110RG 

10. OF F = 004020 G SBUF 000136RG 002 SlBNH 000052RG 

IO.RDH= 004030 G SBUFRX 040336RG 00 2 SLBNL 000054RG 

IO.RNF= 004060 G SBUFX = 040336RG 002 SLOGDV 0001 32RG 

I0.RNR= 004070 G JCONPB 000060RG tMBSSZ 0001 26RG 

IO.RPD= 004170 G SCYL 000046RG 00 2 SMDBSF 041156RG 

I0.RTD= 004120 G SDSKPB 000030RG JMXCYL 0001 20RG 

I0.TDD= 004140 G SDVICE 000002RG 

. ABS. 000000 000 

000152 001 

mtBF 046356 002 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 898 WORDS < 4 PAGES) 

DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 

ELAPSED TIME: 00:00:12 

C300,203FMTDAT ,C 300. 30]FMTDAT=[ 300.1 03FMTDAT 


* 3 


SEO 003t 



SMXLBN 

000032RG 

O 

e> 

SSSF SZ 

000014RG 


002 

SMXSEC 

000124RG 


SSTATS 

OOOOOORG 


002 

SMXTRK 

0001 22RG 


SSUERL 

00001 1RG 

002 

002 

SPAT 

000016RG 


SSWFFE 

00001 5RG 

002 

002 

002 

SPHYDV 

000142RG 


SSWFMT 

000014RG 

002 

sretry 

000022RG 


SSWINT 

000016RG 

002 


SREVNM 

000006RG 

002 

SSWLOG 

00001 3RG 

002 

002 

SRGBUF 

000054RG 

002 

SSWLST 

00001 2RG 

002 

002 

SRTCNT 

000026RG 

002 

SSWM0D 

00001 7RG 

002 


SSCB 

000002RG 

002 

STRK 

000050RG 

002 


SSEC 

000052RG 

002 

SUBSSZ 

0001 30RG 



SSNAME 

00Q022RG 
0431 56RG 

002 

SUCB 

OOOOOORG 

002 


SSSF 

002 

SUDBSF 

0421 56RG 

002 


SSSFDT= 

001365 G 


SVERIF 

000021 RG 

002 


SSSFHD= 

000013 G 


SXFRSZ 

000046RG 


o 

o 

SSSFLB 

00001 ORG 


SYESN0 

00001 ORG 

002 


sssfln= 

000003 G 


...G8L = 

000001 




L 3 


SEQ 003 7 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


.TITLE FMTMSG - MESSAGE OUTPUT ROUTINES 
I DENT 701.00/ 

COPYRIGHT (C) 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF. MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 15-AUG-80 

M. LEAVITT 23-0CT-80 


.NL1ST CND.BEX 
.MCALL DIRS 



MSG - MESSAGE 

OUTPUT 

ROUTINE 

MACRO Ml 113 1 2-JAN-82 

35 

38 

39 000000 

015 

000 


SCR: : .ASCI Z 

AO 000002 

052 

052 

052 

SSTARS: : ASCIZ 

AT 000016 

01 S 

106 

115 

SMSG1 : : .ASCIZ 

A2 000027 

123 

131 

116 

SMSG2: : .ASCIZ 

A3 OOOOAA 

104 

105 

126 

SMSG4 : : .ASCIZ 

AA 000071 

106 

101 

111 

SMSG5: : .ASCIZ 

A5 000121 

012 

012 

123 

SMSG6: : .ASCIZ 

A6 0001AA 

OAO 

055 

101 

SMSG6A::. ASCIZ 

A7 000166 

OAO 

055 

106 

SMSG6B::. ASCIZ 

A8 000207 

10A 

122 

111 

SMSG7: : .ASCIZ 

A9 000225 

125 

116 

122 

SMSG8: : .ASCII 

50 000252 

OAO 

040 

040 

SMSG8A::. ASCIZ 

51 000260 

104 

105 

126 

SMSG9: : .ASCIZ 

52 000304 

104 

105 

126 

SMSG10::. ASCIZ 

53 000325 

012 

123 

124 

SMSG11 ASCIZ 

5A 000351 

012 

104 

117 

SMSG12::. ASCIZ 

55 000361 

104 

105 

126 

SMSG13::. ASCIZ 

56 000407 

103 

131 

114 

SMSG15::. ASCIZ 

57 000421 

124 

122 

101 

SMSG16::. ASCIZ 

58 000430 

123 

105 

103 

SMSG17::. ASCIZ 

59 000440 

115 

104 

102 

SMSG18: : .ASCIZ 

60 000463 

125 

104 

102 

SMSG19: : .ASCIZ 

61 000506 

106 

101 

124 

SMSG20::. ASCIZ 

62 000533 

106 

101 

111 

SMSG21 ::. ASCIZ 

63 000565 

120 

122 

111 

SMSG22::. ASCIZ 

64 000611 

012 

007 

052 

SMSG23::. ASCIZ 

65 000656 

072 

040 

052 

SMSG24::. ASCIZ 

66 000664 

015 

106 

115 

JMSG25::. ASCIZ 

67 000672 

125 

116 

101 

SMSG26::. ASCIZ 

68 000722 

126 

105 

103 

SMSG27::. ASCIZ 

69 000756 

103 

123 

122 

SMSG28::. ASCIZ 

70 001010 

103 

117 

115 

SMSG29::. ASCIZ 

71 001032 

103 

117 

115 

SMSG30::. ASCIZ 

72 001053 

012 

103 

117 

SMSG31::. ASCIZ 

73 001076 

122 

105 

123 

SMSG32::. ASCIZ 

74 001124 

111 

116 

103 

SMSG40::. ASCIZ 

75 001162 

125 

116 

101 

SMSGA1 ::. ASCIZ 

76 001210 

125 

116 

101 

SMSG42::. ASCIZ 

77 001240 

125 

116 

101 

SMSG43::. ASCIZ 

78 001265 

111 

116 

103 

SMSG44: .-.ASCIZ 

79 001323 

105 

122 

122 

SMSG45::. ASCIZ 

80 001350 

125 

116 

101 

SMSG58::. ASCIZ 

81 001415 

123 

113 

111 

SMSG59::. ASCIZ 

82 001456 

015 

104 

122 

SHSG70::. ASCIZ 

83 001471 

015 

117 

120 

SMSG71: ASCIZ 

84 001504 

104 

1 22 

111 

SMSG72::. ASCIZ 

85 001526 

104 

122 

111 

JMSG73::. ASCIZ 

86 001550 

125 

120 

104 

SMSGR8: :. ASCIZ 


87 

88 


EVEN 


M 3 


SEQ 0038 


1:02 PAGE 2 


<CR> 

/****««**t*/<LF> 

<CR>/FMT — / 

/SYNTAX ERROR/ 

/DEVICE NOT IN SYSTEM/ 

/FAILED TO ATTACH DEVICE/ 

<LFXLF>/START FORMATTING/ 

/ -ALL CYLINDERS-/<CR> 

/ -FE CYLINDERS-/<CR> 

/DRIVE OFFLINE/ 

/UNRECOVERABLE ERROR -/ 

/ / 

/DEVICE WRITE LOCKED/ 

/DEVICE NOT READY/ 

<LF>/START VERIFICATION/ 

<LF>/DONE ! / 

/DEVICE DRIVER MISSING/ 

/cylinders/ 

/tracks/ 

/SECTOR*/ 

/MDBSF COPY CORRUPT/ 

/UDBSF COPY CORRUPT/ 

/FATAL HARDWARE ERROR/ 

/FAILED TO READ MDBSF COPY/ 

/PRIVILEGE VIOLATION/ 

<LF><07>/** WARNING - DATA WILL BE LOST ON / 
/: W<07> 

<CR>/FMT>/ 

/UNABLE TO RECOVER MDBSF/ 

/VECTOR NOT MULTIPLE OF FOUR/ 

/CSR ADDRESS NOT IN SYSTEM/ 

BCOMMAND I/O ERR0R3 
/COMMAND TOO LONG/ 

<LF>/CONTINUE (L) N ? / 

/RESPONSE OUT OF RANGE/ 

/INCORRECT MDBSF SERIAL NUMBER/ 

/UNABLE TO RECOVER SSF/ 

/UNABLE TO RECOVER UDBSF/ 

/UNABLE TO READ UDBSF/ 

/INCORRECT UDBSF SERIAL NUMBER/ 

/ERROR LIMIT EXCEEDED/ 

/UNABLE TO READ SKIP SECTOR FILE COPY/ 

/SKIP SECTOR FILE COPY IS CORRUPT/ 

<CR>/DRIVE #: / 

<CR>/OPTIONS: / 

/DRIVE NOT PRESENT/ 

/DRIVE NOT AN RM80/ 

/UPDATE MODE (L) N ? / 



0 


SEG 0059 
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N 3 


90 

91 

92 

93 

94 

95 

96 

97 


••-SMESAG-OUTPUT MESSAGE WITH CURRENT EXIT STATUS 
••-SMSGWR-OUTPUT MESSAGE WITH WARNING EXIT STATUS 


INPUTS: 

RO = ADDRESS OF 


’ASCIZ" MESSAGE STRING 


99 001576 

112767 

OOOOOOG 

OOOOOOG 

SMSGWR: :MOVB 

100 001604 

010046 



SMESAG: :MOV 

101 001606 

012700 

OOOOOOG 


MOV 

102 001612 

012703 

000016* 


MOV 

103 001616 

004767 

OOOOOOG 


CALL 

104 001622 

012603 



MOV 

105 001624 

004767 

OOOOOOG 


CALL 

106 001630 

112720 

000012 


MOVB 

107 001634 

105010 



CLRB 

108 001636 

012700 

OOOOOOG 


MOV 

109 001642 

110 

111 001646 

004767 

OOOOOOG 


CALL 

012767 

OOOOOOC 

OOOOOOG 

$FMTEX::MOV 

112 001654 




DIRS 

113 001662 

114 

000167 

OOOOOOG 


JMP 

115 

000001 



.END 


#EX$WAR.$STATS 

RO.-(SP) 

#SBUF.RO 

#SMS6l ,R3 

SMOVE 

(SP)*,R3 

SMOVE 

#12, CRO) 

(RO) 

#SBUF ,R0 
SPRINT 


SET WARNING EXIT STATUS 
SAVE MESSAGE ADDRESS 
GET PRINT BUFFER ADDRESS 
GET PREFIX ADDRESS 
STORE PREFIX 

GET BASIC MESSAGE ADDRESS 

STORE BASIC MESSAGE 

ADD AN ADDITIONAL LINE FEED 

TERMINATE THE BUFFER 

SET MESSAGE BUFFER ADDRESS 

PRINT THE MESSAGE 


flO.DET ! IQ.UMD.SFUNC ; LOAD DETACH FUNCTION 
#$DSKPB ;DETACH DISK (WHO CARES IF IT 
$FMTEP ; RESTART 


CODE 

FAILS! !) 
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SYMBOL TABLE 

CR = 000015 SMSGR8 001550RG SMSG2C 000506RG 

EX*WAR= ****** GX $MSGUR 001576RG SMSG2» 000533RG 

10.DET= ****** GX SMSG1 000016RG SMSG22 000565RG 

IQ.UMD= «•«««« GX SMSG10 000304RG SMSG23 00061 1 RG 

LF = 000012 SMSG11 000325RG SMSG24 000656RG 

SBUF = ****** GX SMSG12 000351 RG SMSG25 000664RG 

SCR OOOOOORG SMSG1 3 000361 RG SMSG26 000672RG 

SDSKPB= ****** GX SMSG15 000407RG SMSG27 000722RG 

$FMTEP= ****** GX SMSG16 000421 RG SMSG28 000756RG 

SFMTEX 001646RG SMSG17 000430RG SMSG29 001010RG 

SFUNC = ****** GX SMSG18 000440RG SMSG30 001032RG 

SMESAG 001604RG SMSG19 000463RG SMSG31 001053RG 

SMOVE = ****** GX SMSG2 000027RG SMSG32 001076RG 

. ABS. 000000 000 

001666 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 618 WORDS ( 3 PAGES) 

DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 

ELAPSED TIME: 00:00:10 
C300.20]FHTMSG,E300.30]FMTMSG=C300.10]FMTMSC 


,E0 0040 


SMSG4 

SMSG40 

SMSG41 

SMSG42 

SMSG43 

SMSG44 

SMSG45 

SMSG5 

SMSG58 

SMSG59 

SMSG6 

SMSG6A 


00004<*.'*0 
001124RG 
001162RG 
001 210RG 
001240RG 
001265RG 
001323RG 
000071 RG 
001350RG 
001415RG 
0001 21 RG 
000144RG 


SMSG6B 0001 66RG 
SMSG7 000207RG 
SMSG70 001456RG 
SMSG71 001 471 RG 
SMSC72 001504RG 
SMSG73 001526RG 
SMSG8 000225RG 
SMSG8A 000252RG 
SMSG9 000260RG 
SPRINT= ****** GX 
SSTAPS 000002RG 
SST AT S- ****** GX 
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1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

\i 

K 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


.TITLE FKTSUB - FORMAT SUBROUTINES 
.IDENT 702.00/ 


COPYRIGHT (C) 1980,1982 

DIGITAL EQUIPMENT CORPORATION. MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYR.’GHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR otherwise MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 02.00 

C. HESS 21 -AUG-80 

M. LEAVITT 02-JUL-82 
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SEO 0042 


32 

33 

34 

35 

36 

37 

38 

39 

40 


52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 000032 

65 000036 

66 000042 

67 000044 

68 000050 

69 000054 

70 000060 

71 000062 

72 000064 

73 000070 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 000074 

85 000100 

86 000104 

87 000 T 06 

88 000112 


012700 OOOOOOG 
004767 000134 
105202 

004767 OOOOOOG 
112720 000040 


41 





42 

43 000000 

016701 

OOOOOOG 

SMVPAT: :MOV 

TRKSZ.R1 

44 000004 

006201 


ASR 

R1 

45 000006 

006201 


ASR 

R1 

46 000010 

012700 

OOOOOOG 

MOV 

ASBUF ,R0 

47 000014 

016720 

OOOOOOG 

1$: MOV 

SPAT , (RO)* 

48 000020 

016720 

000002G 

MOV 

SPAT *2, (RO) ♦ 

49 000024 

005301 


DEC 

R1 

50 000026 

100372 


BPL 

IS 

51 000030 

000207 


RETURN 



••-SMVPAT-LOAD THE DATA BUFFER WITH THE DISK DATA PA T TERN 

INPUTS: 

NONE 

OUTPUTS: 

’SBUF’ LOADED WITH ’SPAT* & ’SPAW 


LOAD THE DISTRIBUTION COUNTER 
CONVERT BYTE COUNT TO WORD COUNT 
CONVERT TO 2 WORD COUNT 
BUFFER POINTER 
MOVE THE PATTERN 

DECREMENT THE DISTRIBUTION COUNTER 
IF PL, MORE TO DO 


OUTPUT ERROR MESSAGE 
INPUTS: 

R1 = VALUE TO CONVERT 

R3 = ADDRESS OF SASIC MESSAGE 

OUTPUTS: 

NONE. 


012700 

OOOOOOG 

SE ROUT:: MOV 

asbufrx.ro 

GET OUTPUT BUFFER ADDDRES 

004767 

0001 76 

CALL 

SMOVE 

STORE BASIC MESSAGE 

005002 


CLR 

R2 

SUPRESS LEADING O'S 

004767 

OOOOOOG 

call 

SCBDMG 

CONVERT TO DECIMAL 

112720 

000056 

ERR0U1: HOVB 

A’.,(RO)* 

STUFF DECIMAL INDICATOR 

112720 

000040 

MOVB 

»' f (R0>* 

STUFF BLANK IN MESSAGE 

105010 


CLRB 

(RO) 

TERMINATE STRING 

005001 


CLR 

R1 

SET NULL CARRIAGE CONTROL 

012700 

OOOOOOG 

MOV 

asbufrx.ro 

GET OUTPUT BUFFER ADDRESS 

000167 

OOOOOOG 

JMP 

SPRNTO 

PRINT MESSAGE 


••-SEROCT-CONVERT TO OCTAL AND PRiNT 
INPUTS: 

R1 = VALUE TO CONVERT 
R3 r MESSAGE ADDRESS 

OUTPUTS: 

MESSAGE PRINTED ON TI: 


SEROCT: :MOV 
CALL 
INCB 
CALL 
HOVB 


ASBUFRX.RO 

SMOVE 

R2 

SCBOMG 
A' ,(R0>* 


INCLUDE LEADING ZEROS 
CONVERT TO OCTAL 
STUFF BLANK IN MESSAGE 
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E 4 


SEO 0043 


89 000116 

105010 


CLRB 

(RO) 

; TERMINATE STRING 

90 000120 

005001 


CLR 

R 1 

; SE T NULL CARRIAGE CONTROL 

91 000122 

012700 

OOOOOOG 

MOV 

fSBUFRX.RO 

# 

92 000126 

004767 

OOOOOOG 

CALL 

SPRNTO 

.-SEND MESSAGE 


93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 


124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 
14 2 
14 * 


000204 

000210 

000214 

000222 

000226 

000232 

000236 


**-SCvTDA-CONVERT DISK ADDRESS TO LOGICAL BLOCK NUMBER 

THIS SUBROUTINE CONVERTS A DISK ADDRESS TO A LOGICAL 
BLOCK NUMBER. THE FORMULA USED IS: 

BLK = CSCYL * SMXTRK ♦ STRK) * SMXSEC ♦ SSEC 


INPUTS; 


SCYL = CYLINDER NUMBER 
STRK = TRACK NUMBER 
SSEC = SECTOR NUMBER 


106 






107 



; OUTPUTS: 



108 



; SLBNH = 

HIGH ORDER BLOCK 

NUMBER 

109 

110 



; SLBNL = 

LOW ORDER BLOCK NUMBER 

111 

112 000132 

016701 

OOOOOOG 

SCVTDA : :MOV 

SCYL.R1 

GET CYLINDER NUMBER 

113 000136 

016700 

OOOOOOG 

MOV 

smxtrk.ro 

GET TRACKS PER CYLINDER 

114 000142 

004767 

000174 

CALL 

SMULT 

multiply 

115 000146 

016700 

OOOOOOG 

MOV 

STRK.RO 

R1.R0 

GET TRACK NUMBER 

116 000152 

060100 

ADD 

ADD TO PARTIAL TOTAL 

117 000154 

016701 

OOOOOOG 

MOV 

SMXSEC.R1 

GET SECTORS PER TRACK 

118 000160 

004767 

000156 

CALL 

SMULT 

multiply 

119 000164 

066701 

OOOOOOG 

ADD 

SSEC.R1 

ADD IN SECTOR 

120 000170 

005500 


ADC 

RO 

DON’T FORGET CARRY 

121 000172 

010067 

OOOOOOG 

MOV 

RO. SLBNH 

SAVE HIGH ORDER BLOCK NUMBER 

122 000176 

010167 

OOOOOOG 

MOV 

R1 .SLBNL 

SAVE LOU ORDER BLOCK NUMBER 

123 000202 

000207 


RETURN 




**-$HOMSK- ISSUE A HOME SEEK FUNCTION 

THIS SUBROUTINE WILL ISSUE A HOME SEEK FUNCTION. 

INPUTS: 

NONE. 

OUTPUTS: 

HOME SEEK ISSUED TO DISK. 


005067 

OOOOOOG 

SHOHSK : : CLR 

SLBNH 

005067 

OOOOOOG 

CLR 

SLBNL 

012767 

000010 OOOOOOG 

MOV 

flO.SXFRSZ 

012703 

OOOOOOC 

MOV 

flO.HHS ! IQ 

012705 

OOOOOOG 

MOV 

#SBUF,R5 

SDSKIO 

000167 

OOOOOOG 

JMP 

000207 


IS: RETURN 



RESET BLOCK NUMBER 

DUMMY UP BYTE COUNT 
3 .-SET HOME SEEK FUNCTION CODE 

; SE TUP DEFAULT BUFFER ADDRESS 
;D0 THE FUNCTION AND EXIT 


144 

145 
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F 4 


SEO 0044 


146 



♦ 



147 

14R 



••-SMOVE-MOVE ASCIZ STRING 

INTO BUFFER 

1 HO 

149 



THIS SUBROUTINE WILL MOVE 

AN ASCIZ STRING INTO A BUFFER. 

1 JU 

151 



INPUTS: 



152 



RO = ADDRESS Of BUFFER. 


153 



R3 = ADDRESS OF ASCIZ TEXT TO MOVE. 

154 






155 



OUTPUTS: 



156 



RO = POINTS TO NEXT 

PLACE IN BUFFER. 

157 



- 



158 






159 000240 

112320 

SMOVE:: MOVB (R3)*.(R0)* 


STORE TEXT CHARACTER 

160 000242 

001376 


BNE SMOVE 


IF NE CONTINUE TO STORE 

161 000244 

105740 


TSTB -(RO) 


POINT TO NEXT BUFFER POSITION 

162 000246 

000207 


RETURN 



163 






164 



♦ 



165 



* ‘-SPRMPT -PROMPT USER AND 

SOLICIT A RESPONSE 

166 






167 



THIS SUBROUTINE WILL PROMPT THE USER AND THEN WAIT FOR FIS 

168 



RESPONSE. 



169 






170 



INPUTS: 



171 



RO = ADDRESS OF PROMPT MESSAGE. 

172 






173 



OUTPUTS: 



174 



R3 = BYTE COUNT 



175 



BUFFER IS TERMINATED 


176 



Z = 1 IF BYTE COUNT 

IS ZERO 

177 



Z = 0 IF BYTE COUNT 

IS NON-ZERO 

178 



- 



179 






180 000250 

012701 

000044 SPRMPT ; :N0V f’S.RI 


SET CARRIAGE CONTROL 

181 000254 

004767 

000000G 

CALL SPRNTO 


PROMPT THE USER 

182 000260 

005067 

000000G 

CLR SBUFRX 


CLEAR USER’S RESPONSE BUFFER 

183 000264 

004767 

0000006 

CALL SREAD 


GET THE USERS RESPONSE 

184 000270 

103422 


BCS MSG 


IF CS ERROR 

185 000272 

016703 

000002G 

MOV SIOST *2,R3 


GET BYTE COUNT 

186 000276 

105063 

OOOOOOG 

CLRB $BUFRX(R3) 


TERMINATE THE LINE 

187 000302 

012700 

OOOOOOG 

MOV fSBUFRX.RO 


GET INPUT BUFFER ADDRESS 

188 000306 

121027 

000141 1$: CMPB (R0).#141 


lower case letter? 

189 000312 

103405 


BLO 2S 


IF LO NO 

190 000314 

121027 

000172 

CMPB (RO) ,#172 


LOWER CASE LETTER? 

191 000320 

101002 


BHI 2S 


IF HI NO 

192 000322 

142710 

000040 

BICB #40. (RO) 


YES. CONVERT TO UPPER CASE 

193 000326 

105720 

21: TSTB <R0) ♦ 


END OF INPUT BUFFER? 

194 000330 

001366 


BNE IS 


IF NE NO 

195 000332 

005703 


T ST R3 


TEST FOR NULL LINE 

196 000334 

000207 


RETURN 



197 000336 

000167 

OOOOOOG MSG: JMP SMSGWR 


EXIT WITH WARNING STATUS 

198 






199 



♦ 



200 



••-SMULT-INTEGER MULTIPLY 

ROUTINE 

201 






202 



INPUTS: 
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G s 


SEQ 0045 


203 



RO = MULTIPLIER 


204 



R1 = multiplicand 


cU J 

206 



OUTPUTS: 



207 



RO = HIGH ORDER RESULT 


208 



R1 = LOU ORDER RESULT 


CUT 

210 



ALL REGISTERS 

ARE PRESERVED 


211 






212 



• 



213 






214 000342 

010046 

$MUlT : : MOV 

RO.-(SP) 

SAVE MULTIPLIER FOR ADDS 

215 000344 

012746 

000021 

MOV 

#21.-<SP) 

SET LOOP COUNT 

216 000350 

005000 


CLR 

RO 

CLEAR HIGH PART 

217 000352 

006000 

IS: ROR 

RO 

DOUBLE RIGHT SHIFT 

218 000354 

006001 


ROR 

R1 


219 000356 

103002 


BCC 

2S 

IF CC, DO NOT ADD 

220 000360 

066600 

000002 

ADD 

2<SP),R0 

ADD MULTIPLIER TO RESULT 

2 21 000364 

005316 

2$: DEC 

(SP) 

DECREMENT THE LOOP COUNT 

222 000366 

003371 


BGT 

IS 

IF GT, MORE TO DO 

223 000370 

022626 


CMP 

<SP)*,(SP)* 

PRUNE STACK 

224 000372 

000207 


RETURN 



225 






226 



♦ 



227 



••-SSFCRC-COMPUTE CHECKSUM OVER SSF DATA 

228 






229 



THIS ROUTINE 

WILL COMPUTE THE CHECKSUM OVER THE SPECIFIED 

230 

3* i 



DATA AREA OF 

AN SSF COPY. 


c J 1 

232 



INPUTS: 



233 



RO = starting address 


234 



R1 = LENGTH OF DATA AREA 


235 






236 



OUTPUTS: 



237 



RO = 

POINTS TO CHECKSUM WORD 

238 



R1 = 

CHECKSUM 


239 



- 



240 






241 000374 

012746 

000001 SSFCRC: MOV 

fl.-(SP) 

INITIALIZE CHECKSUM 

242 000400 

062016 

IS: ADD 

(RO)*,(SP) 

ADD DATA WORD TO CHECKSUM 

243 000402 

006116 


ROL 

(SP) 

ROTATE CHECKSUM 

244 000404 

005301 


DEC 

R1 

ALL DONE ? 

245 000406 

001374 


BNE 

IS 

IF NE. NO 

246 000410 

012601 


MOV 

(SP)^.RI 

GET CHECKSUM RESULT 

247 000412 

000207 


RETURN 



248 






249 






250 



••-SUPDMX-UPDATE MAXIMUM VALUES FOR DEVICE GEOMETRY 

251 






252 



THIS ROUTINE 

WILL REPLACE THE CURRENT MAXIMUM VALUES FOR 

253 



RM80'S CURRENT GEOMETRY WITH THE VALUES SUPPLIED IN THE 

254 



SPECIFIED TABLE. 


255 






256 



INPUTS: 



257 



R3 = 

POINTER TO SPECIFIED TABLE 

258 






259 



OUTPUTS: 
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SEO OO-.C 


260 



R3 = 

POINTS PAST END 

261 



SMXLBN, 

SMXLBN»2, smxcyl 

262 





263 

264 

265 000414 


; - 



012367 

OOOOOOG SUPDMX: 

:MOV 

(R3) ♦ .SMXLBN 

266 000420 

012367 

000002G 

MOV 

(R3)*.SMXLBN»2 

267 000424 

012367 

OOOOOOG 

MOV 

(R3)*. SMXCYL 

268 000430 

112367 

OOOOOOG 

M0V8 

( R3) ♦ .SMXSEC 

269 000434 

112367 

OOOOOOG 

movb 

<R3)*,SMXTRK 

270 000440 

166767 

OOOOOOG 000002G 

SUB 

SMXSEC,SMXLBN*2 

271 000446 

005667 

OOOOOOG 

SBC 

SMXlBN 

272 000452 

000207 


RETURN 



273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 
2 86 

287 

288 000454 

289 000460 

290 000466 

291 000470 

292 000472 

293 000500 

294 000502 

295 000504 

296 000506 

297 000510 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 
3H 

315 

316 


SET UP MAX LBN 

SET UP MAX CYLINDER 
SETUP MAX SECTOR 
SETUP MAX TRACK 
DO NOT FORMAT LAST TRACK 


••-STSTDA-TEST FOR A VALID DISK ADDRESS (BLOCK NUMBER) 

THIS SUBROUTINE WILL CONVERT THE DISK ADDRESS TO A LBN AND 
CHECK IF THE LOGICAL BLOCK NUMBER IS WITHIN RANGE. 

INPUTS: 

SSEC , STRK, SCYL SET TO A VALUE. 


OUTPUTS: 

CS 

CC 


IF LBN OUT OF RANGE 
IF LBN IN RANGE 


004767 

177452 

• * 

STSTDA: :CALL 

126767 

OOOOOOG OOOOOOG 

CMPB 

101007 


BH1 

103404 


BIO 

026767 

OOOOOOG 000002G 

CMP 

101002 


BHl 

000241 


IS. CLC 

000207 


RETURN 

000261 


2S: SEC 

000207 


RETURN 


SCVTDA 
SLBNH, SMXLBN 

2S 

IS 

$L8NL,SMXLBN+2 

2S 


CONVERT PARAMETERS TO LBN 
HIGH BLOCK « IN RANGE? 

IF HI NO 
IF LO YES 

LOW BLOCK » IN RANGE? 

IF HI NO 
SHOW LBN OK 

SHOW LBN BAD 


••-STSTMX-TEST FOR END OF DISK AND UPDATE DISK PARAMETERS 

THIS SUBROUTINE WILL UPDATE THE DISK PARAMETERS AND TEST 
IF THE PARAMETERS WILL OVERFLOW THE DISK. 

INPUTS: 

SCYL = CURRENT CYLINDER NUMBER 
STRK = CURRENT TRACK NUMBER 
SSEC = CURRENT SECTOR NUMBER 


OUTPUTS: 

CS 

CC 

SSEC 


IF UPDATED PARAMETERS EXCEED DISK LIMITS 
IF UPDATED PARAMETERS ARE STILL VALID. 

0 IF NORMAL MODE. 
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I A 


SEO 0047 


317 000512 

318 000516 
329 000522 
530 000530 

331 000532 

332 000536 

333 000542 

334 000550 

335 000552 

336 000554 

337 000556 

338 000560 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 000562 

355 000566 

356 000572 

357 000576 

358 000602 

359 000604 

360 000610 

361 000612 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 
>7 5 
376 
3 77 

378 

379 000616 

380 000622 

381 000626 

382 000634 
385 


005067 

OOOOOOG 


STSTMX: 

: CLR 

SSEC 

005267 

OOOOOOG 



INC 

STRK 

026767 

OOOOOOG 

OOOOOOG 

1 0S : 

CMP 

STRK.SMXTRK 

103404 




BLO 

20S 

005067 

OOOOOOG 



CLR 

STRK 

005267 

OOOOOOG 



INC 

SCYL 

026767 

OOOOOOG 

OOOOOOG 

20S: 

CMP 

SCYL.SMXCYL 

001402 




BEQ 

30S 

000241 




CLC 


000207 




RETURN 


000261 



30S: 

SEC 


000207 




RETURN 



START WITH SECTOR ZERO 
UPDATE TRACK NUMBER 
IS TRACK NUMBER EXCEEDED? 

IF 10, NO 

RESET TRACK NUMBER 
UPDATE CYLINDER NUMBER 
IS CYLINDER NUMBER EXCEEDED? 
IF EO YES 

INDICATE VALID PARAMETERS 
INDICATE PARAMETERS EXCEEDED 


* *-SUNT ID-PUT MESSAGE AND DEVICE/UNIT INTO BUFFER 

THIS SUBROUTINE WILL STORE THE MESSAGE AND THE DEVICE AND UNIT 
NUMBER INTO THE BUFFER. 

INPUTS: 

R3 = ADDRESS OF MESSAGE 


OUTPUTS: 

RO = NEXT BUFFER POSITION 


012700 

0001 44G 

• 

SUNT ID: :MOV 

fSBUF ♦100. ,R0 

SET BUFFER ADDRESS 

004767 

177446 

CALL 

SMOVE 

PUT MESSAGE INTO BUFFER 

116720 

OOOOOOG 

MOVB 

SD V ICE . (RO) ♦ 

STORE DEVICE NAME 

116720 

000001 G 

MOVB 

SDV1CE*1.(R0)» 


005001 


CLR 

R1 

GET READY FOR THE BISB 

156701 

OOOOOOG 

B1SB 

SDVUNT.R1 

GET UNIT NUMBER 

005002 


CLR 

R2 

suppress LEADING O'S 

000167 

OOOOOOG 

JMP 

SCBOMG 

CONVERT UNIT NUMBER TO ASCII 


^••-SRDBSF-READ MANUFACTURER'S t USER BAD SECTOR FILES 

THIS SUBROUTINE WILL READ THE MD8SF AND THE UDBSF . 

IF WE ARE RE-WRITING THE LAST TRACK. A EMPTY MDBSF AND UDBSF 
IS RETURNED. 

INPUTS: 

SMXLBN = DISK ADDRESS Of START OF MDBSF. 

OUTPUTS. ^od stcT0 R OF THE MDBSF AND THE UDBSF ARE READ INTO 
THEIR BUFFERS 


012703 000000G SRDBSF : :MOV 
004767 177566 CALL 
016767 OOOOOOG OOOOOOG MOV 
016767 000002G OOOOOOG MOV 


fSLOGDV ,R3 
SUPDMX 

SMXLBN.SLBNH 

SMXLBN*2.SLBNL 


LOGICAL DEVICE ADDRESS POINDER 
UPDATE THE ADDRESS VALUES 
SET DISK ADDRESS Of MDBSF 




SEO 0048 


GET NUMBER OF BLOCKS IN MDBSF 
DIVIDE BY 2 

TRY NEXT USABLE MDBSF BLOCK 

GET ADDRESS OF MDBSF BUFFER 
READ THE MDBSF 
IF CC OK 

CAN'T READ MDBSF 

MORE MDBSF BLOCKS AVAILABLE? 

IF NE YES 

PRINT THE ERROR MESSAGE 
UNABLE TO RECOVER THE MDBSF 
EXIT 

SAVE THE MDBSF COUNT 
PRINT THE MESSAGE 
RESTORE R1 
TRY AGAIN 

VERIFY THE MDBSF COPY 
MDBSF BUFFER POINTER 
BAD S/N MSG POINTER 
MDBSF CORRUPT MSG POINTER 
IF CS. MDBSF CORRUPT 
SORT THE MDBSF 


SET DISK ADDRESS OF UDBSF 

ADDRESS OF THE UDBSF 

GET NUMBER OF BLOCKS IN UDBSF 
DIVIDE BY 2 

TRY NEXT USABLE UDBSF BLOCK 

GET ADDRESS OF UDBSF BUFFER 
READ THE UDBSF 
IF CC OK * 

CAN'T READ UDBSF 

MORE UDBSF BLOCKS AVAILABLE? 

IF NE, YES- 

PRINT THE ERROR MESSAGE 

UNABLE TO RECOVER THE UDBSF 

EXIT ■ 

SAVE THE MDBSF COUNT 
PRINT THE MESSAGE 
RESTORE R1 
TRY AGAIN 

VERIFY THE UDBSF COPY 
UDBSF BUFFER POINTER 
BAD S/N MSG POINTER 
UDBSF CORRUPT MSG POINTER 
IF CS. UDBSF CORRUPT 
SORT THE UDBSF 


F M T SUB - FORMAT SUBROUTINES MACRO Ml 11 3 02-JUL-82 13:20 PAGE 2-7 


SEO OOt* 



466 

467 

468 

469 

470 

471 


472 

473 

474 

475 

476 

477 


RETURN 


**-RDBSF-READ THE SPECIFIED BSF FILE 

READ THE BSF (EITHER MDBSF OR UDBSF ) SPECIFIED IN R5 
(ROUTINE USED BY * SRDBSF * ) 

INPUTS: 

R5 = BUFFER ADDRESS 

SLBNL .SLBNH LOADED WITH THE TRANSFER LBN 
OUTPUTS: 

CC IF TRANSFER WAS NOT SUCESSFUL 


OOOOOOG RDBSF: MOV #512..SXFRSZ 

MOV #I0.RLB!IQ.X.R3 

CALL SDSK10 

RETURN 


SET SIZE OF ONE SECTOR (BYTES) 

SET READ FUNCTION (WITHOUT RETRIES) 
READ 1 BLOCK FROM THE BSF 


**-VYBSF-VERIFY THE BSF COPY 
(ROUTINE USED BY 'SRDBSF ' ) 

VERIFY THE BSF COPY SPECIFIED BY THE INPUT PARAMETERS 

CALL: JSR R5.VYBSF 

BSF POINTER 

POINTER TO ' XXBSF SERIAL NUMBER DOESN'T MATCH' MSG 
POINTER TO 'XXBSF COPY CORRUPT' MSG 

OUTPUTS: 

RO = SPECIFIC ERROR MESSAGE POINTER 
CC 0 IF BSF NOT CORRUPT 

CS 1 IF BSF CORRUPT 


478 


479 001136 

012503 


VYBSF : 

MOV 

(R5)*.R3 

480 001140 

012500 



MOV 

(R5)*.R0 

481 001142 

105767 

OOOOOOG 


TSTB 

SSWLST 

48 2 001146 

001010 



BNE 

IS 

483 001150 

021367 

OOOOOOG 


CMP 

(R3) .SSNAHE 

484 001154 

001020 



BNE 

4S 

485 001156 

026367 

000002 000002G 


CMP 

2<R3),SSNAME*2 

486 001164 

001014 



BNE 

4S 

487 001166 

000405 



BR 

2S 

488 001170 

005713 


IS: 

TST 

(R3) 

489 001172 

001003 



BNE 

2S 

490 001174 

005763 

000002 


TST 

2<R3) 

491 001200 

001403 



BEQ 

3S 

492 001202 

005763 

000006 

2$: 

TST 

6<RS> 

493 001206 

001403 



BEQ 

4S 

494 001210 

012500 


3$: 

MOV 

(R5) ♦ ,R0 

495 001212 

000261 



SEC 


496 001214 

000402 



BR 

5S 

49 7 001216 

005725 


41: 

TST 

(R5)* 


GET THE BUFFER POINTER 
BAD S/N MESSAGE POINTER 
LISTING THE MDBSF ? 

IF NE. YES 

VERIFY THE SERIAL NUMBER 

IF NE, FIRST S/N WORD NOT CORRECT 

CHECK THE SECOND WORD 

IF NE. SERIAL NUMBER DOESN'T MATCH 

CHECK THE ALIGNMENT FLAG 

IS SERIAL NUMBER NON-ZERO? 

IF NE YES 
MAYBE? 

IF EQ. NO 

TEST THE ALIGNMENT DISK FLAG 
IF EQ, BSF OK 

CORRUPT BSF MESSAGE POINTER 
SET THE ERROR INDICATOR 

CORRECT THE RETURN 


FMTSUB - FORMA! SUBROUTINES MACRO Ml 1 1 3 02-JUL-82 13:20 PAGE 2-8 


L 4 


SEO 0050 


<.98 001220 
4.99 001222 

500 

501 

502 

503 
50A 

505 

506 

507 

508 

509 

510 

511 

512 

513 
514. 


000241 

000205 


5S: 


CIC 

RTS 


R5 


SET THE GOOD INDICATOR 
RETURN 


521 

522 

523 

524 


530 

531 

532 


538 

539 

540 

541 


545 

546 

547 


551 

552 

553 

554 


**-SWT8SF-WRITE THE MANUFACTURER'S AND USER'S BAD SECTOR FILES 

THIS ROUTINE WILL WRITE THE 16 BIT MDBSF AND THE UDBSF ON THE 
PRIMARY DEC STD 144 TRACK (558,13) AND ON THE ALTERNATE TRACK 
(559.1). 

INPUTS: 


NONE. 

OUTPUTS: 

NONE. 


001224 

004767 

001232 

SWTBSF: 

CALL 

SSRTMF 

001230 

004767 

001262 


CALL 

SSRTUF 

001234 

012703 

OOOOOOG 


MOV 

#SL0GDV.R3 

001240 

004767 

177150 


CALL 

SUPDMX ; 

001244 

012767 

001000 OOOOOOG 


MOV 

#512. ,$XFRSZ ; 

001252 

016767 

OOOOOOG OOOOOOG 


MOV 

SMXLBN.SLBNH ; 

001260 

016767 

000002G OOOOOOG 


MOV 

SMXLBN+2.SLBNL ; 




; WRITE 

THE 

16 BIT MDBSF 

001266 

012705 

OOOOOOG 


MOV 

#SMDBSF .R5 ; 

001272 

016701 

OOOOOOG 


MOV 

SMBSSZ.R1 ; 

001276 

006201 



ASR 

R1 

001300 

012703 

OOOOOOC 


MOV 

flO.WLT ! IQ.X ,R3 ; 

001304 

004767 

000110 


CALL 

IS ; 




; WRITE 

THE 

16 BIT UDBSF 

001310 

012705 

OOOOOOG 


MOV 

fSUDBSF ,R5 

001314 

016701 

OOOOOOG 


MOV 

SUBSSZ.R1 ; 

001320 

006201 



ASR 

R1 ; 

001322 

012703 

OOOOOOC 


MOV 

flO.WLT! IQ.X.R3 ; 

001326 

004767 

000066 


CALL 

IS 




; WRITE 

THE 

ALTERNATE DEC STD 144 

001332 

012703 

OOOOOOG 


MOV 

#SPHYDV.R3 

001336 

004767 

177052 


CALL 

SUPDMX ; 

001342 

016767 

OOOOOOG OOOOOOG 


MOV 

SALT L8.SLBNH ; 

001350 

016767 

000002G OOOOOOG 


MOV 

SALFLB+2.SLBNL ; 




; WRITE 

THE 

ALTERNATE MDBSF 

001356 

012705 

OOOOOOG 


MOV 

fSMDBSF ,R5 ; 

001362 

016701 

OOOOOOG 


MOV 

SMBSSZ.R1 ; 

001366 

006201 



ASR 

R1 

001370 

012703 

OOOOOOC 


MOV 

#10. FEW! IQ.UMD.R3 

001374 

004767 

000020 


CALL 

IS 


SORT THE MDBSF 
SORT THE UDBSF 

LOGICAL DEVICE ADDRESS POINTER 
UPDATE THE ADDRESS VALUES 
SET ONE BLOCK BYTE COUNT 
SETUP LBN 


SET MDBSF ADDRESS 

GET NUMBER OF BLOCKS IN MDBSF 

DIVIDE BY TWO 

SET WRITE LAST TRACK FUNCTION CODE 
WRITE THE MDBSF 


UDBSF ADDRESS 

GET NUMBER OF BLOCKS IN UDBSF 
DIVIDE BY TWO 

SET WRITE LAST TRACK FUNCTION fODE 
WRITE THE UDBSF 

TRACK (559.1) 

CHANGE TO PHYSICAL ADDRESSING 
UPDATE THE MAX VALUES 
ALTERNATE DEC STD 144 ADDRESS 


SET MDBSF ADDRESS 

NUMBER OF BLOCKS IN THE MDBSF 

DIVIDE BY TWO 

; SE T WRITE FE CYLINDER FUNCTION 


WRITE THE ALTERNATE UDBSF 
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M 4 


SEO 0051 


556 001400 

012705 

OOOOOOG 


MOV 

#SUD8SF,R5 

UDBSF ADDRESS 

557 001404 

016701 

OOOOOOG 


MOV 

SUBSSZ ,R1 

UDBSF SIZE 

558 001410 

006201 



ASR 

R1 

DIVIDE BY TWO 

559 001412 

012746 

OOOOOOC 


MOV 

#10. FEW! IQ.URD,- 

SP) ; SET WRITE FE CYL 

560 001416 

000401 



BR 

2S 

561 001420 

010346 


1$: 

MOV 

R3.-CSP) 

SAVE THE FUNCTION CODE 

562 001422 

011603 


2$: 

MOV 

(SP5.R3 

LOAD THE FUNCTION CODE 

563 001424 

004767 

OOOOOOG 


CALL 

SDSK10 

WRITE THE BLOCK 

564 001430 

062767 

000002 OOOOOOG 


ADD 

#2,$LBNL 

UPDATE BLOCK NUMBER 

565 001436 

005567 

OOOOOOG 


ADC 

slbnh 

• • • 

566 001442 

005301 



DEC 

R1 

FINISHED WITH THE BSF ? 

567 001444 

001 366 



BNE 

2S 

IF NE NO 

568 001446 

005726 



TST 

<SP> + 

CORRECT THE STACK 

569 001450 

000207 



RETURN 




**-1R0SSF-REaD RM80 SKIP SECTOR FILE 

THIS ROUTINE WILL READ THE SKIP SECTOR FILE FOUND ON THE FIRST TRACK 
OF TF E FE CYLINDER AREA ON THE RM80. 

INPuTS : 

SSSFLB = DISK ADDRESS OF START OF SKIPPED SECTOR FILE 
OUTPUTS: 

A GOOD COPY OF THE SSF IS READ INTO SSF BUFFER 


585 001452 

012703 

OOOOOOG 

SRDSSF 

::MOV 

#SPHYDV.R3 

PHYSICAL DEVICE ADDRESS POINTER 


586 001456 

004767 

176732 


CALL 

SUPDMX 

UPDATE THE ADDRESS VALUES 


587 001462 

012767 

OOOOOOC OOOOOOG 


MOV 

#512.*<SSSFLN>.$ 

(FRSZ ; SET SIZE OF ONE COPY OF SSF 

(BYTES) 

588 001470 

016767 

OOOOOOG OOOOOOG 


MOV 

sssflb. slbnh 

SET DISK ADDRESS OF SSF 


589 001476 

016767 

000002G OOOOOOG 


MOV 

SSSFLB+2.SLBNL 



590 001504 

016701 

OOOOOOG 


MOV 

SSSFSZ.R1 

GET NUMBER OF COPIES OF SKIP SECTOR 

FILE 

591 001510 

010146 



MOV 

RI.-(SP) 

SAVE THE COPY COUNT 


592 001512 

000405 



BR 

2S 

CONTINUE 


593 001514 

062767 

OOOOOOG OOOOOOG 

1$: 

ADD 

fSSSFLN.SLBNL 

TRY NEXT USABLE SSF COPY 


594 001522 

105567 

OOOOOOG 


ADCB 

SLBNH 



595 001526 

012705 

OOOOOOG 

2$: 

MOV 

#SSSF ,R5 

. GET ADDRESS OF SKIP SECTOR FILE BUFFER 

596 001532 

012703 

OOOOOOC 


MOV 

flO.FER! IQ.UMD.R 

5 ; SET READ FE CYLINDER FUNCTION 

597 001536 

004767 

OOOOOOG 


CALL 

SDSKIO 

READ 1 COPY OF SSF 


598 001542 

103017 



BCC 

5S 

IF CC, OK 


599 001544 

012700 

OOOOOOG 


MOV 

#SMSG58.R0 

CAN'T READ SSF 


600 001550 

012601 


3$: 

MOV 

(SP)*,Rl 

GET THE SSF COPY COUNTER 


601 001552 

005301 



DEC 

R1 

DECREMENT THE COPY COUNTER 


602 001554 

001006 



BNE 

4S 

IF NE. TRY AGAIN 


603 001556 

004767 

OOOOOOG 


CALL 

SPRINT 

PRINT THE ERROR MESSAGE 


604 001562 

012700 

OOOOOOG 


MOV 

#SMSG41 ,R0 

UNABLE TO RECOVER SSF 


605 001566 

000167 

OOOOOOG 


JMP 

SMSGUR 

EXIT. CAN'T READ SSF OR SSF CORRUPT 


606 001572 

010146 


4S: 

MOV 

RI.-(SP) 

SAVE R1 


607 001574 

004767 

OOOOOOG 


CALL 

SPRINT 

PRINT THE MESSAGE 


608 001600 

000745 



BR 

IS 

TRY AGAIN 


609 001602 

012700 

OOOOOOG 

5S: 

MOV 

#SSSF ,R0 

START WITH HEADER 


610 001606 

012701 

177777G 


MOV 

#SSSFHD-1,R1 

AND ITS LENGTH 


611 001612 

004767 

176556 


CALL 

SSFCRC 

COMPUTE HEADER CHECKSUM 
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N 4 


SEO 0052 


612 001616 

020120 




CMP 

R1 , (RO) ♦ 

CHECK THE CHECKSUM WORD 

613 001620 

001020 




BNE 

6$ 

IF NE. BAD CHECKSUM 

614 001622 

012701 

177777G 



MOV 

#$SSFDT-1,R1 

DATA FIELD LENGTH 

615 001626 

004767 

176542 



CALL 

SSFCRC 

COMPUTE CHECKSUM OVER DATA AREA 

616 001632 

020110 




CMP 

R1 ,<R0> 

CHECKSUM OK? 

617 001634 

001012 




BNE 

6$ 

IF NE, NO 

618 001636 

005767 

000004G 



TST 

$SSF +4 

CREATION DATE PRESENT 

619 001642 

001407 




BEQ 

6$ 

IF EQ. NO 

620 001644 

005767 

000006G 



TST 

$SSF +6 

REVISION DATE PRESENT 

621 001650 

001404 




BEQ 

6$ 

IF EQ, NO 

622 001652 

122767 

000001 

00001 2G 


CMPB 

#1 ,$SSF +12 

16 BIT MODE SSF ? 

623 001660 

001403 




BEQ 

7$ 

IF EQ, YES 

624 001662 

012700 

OOOOOOG 


6$: 

MOV 

#$MSG59,R0 

SSF CORRUPT 

625 001666 

000730 




BR 

3$ 

TRY AGAIN 

626 001670 

005726 



7$: 

TST 

< SP> ♦ 

CORRECT THE STACK 

627 001672 

105767 

OOOOOOG 



TSTB 

SSWLST 

LISTING THE BSF'S ? 

628 001676 

001026 




BNE 

10$ 

IF NE, YES 

629 001700 

105767 

OOOOOOG 



TSTB 

SSWMOD 

MODIFYING THE BSF'S 

630 001704 

001007 




BNE 

8$ 

IF NE. YES 

631 001706 

016767 

OOOOOOG 

OOOOOOG 


MOV 

SSSF.SSNAME 

COPY THE SERIAL NUMBER 

632 001714 

016767 

000002G 

000002G 


MOV 

$SSF+2,$SNAME+2 


633 001722 

000414 




BR 

10$ 


634 001724 

026767 

OOOOOOG OOOOOOG 

81: 

CMP 

SSSF.SSNAME 

CHECK THE SERIAL NUMBER 

635 001732 

001004 




BNE 

9$ 

IF NE. DOESN'T MATCH 

636 001734 

026767 

0000026 

000002G 


CMP 

$SSF +2.SSNAME *2 

CHECK THE SECOND S/N WORD 

637 001742 

001404 




BEQ 

10$ 

IF EQ. S/N OK 

638 001744 

012700 

OOOOOOG 


9$: 

MOV 

#MSGER8,R0 

HDA AND ENTERED SERIAL NUMBER DON'T MATCH 

639 001750 

000167 

OOOOOOG 



JMP 

$MSGUR 

EXIT 

640 001754 

000167 

000446 


10S: 

JMP 

$SRTSF 

SORT THE SSF AND RETURN 


641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 001760 

657 G01764 

658 001770 

659 001774 

660 002000 

661 002004 

662 002010 

663 002012 

664 002016 

665 002022 

666 002024 

667 002032 

668 002036 


*— $WTSSF-WRITE RH80 SKIP SECTOR FILE 

THIS ROUTINE WILL WRITE THE SKIP SECTOR FILE FIVE TIMES ON THE FIRST 
TRACK OF THE FE CYLINDER AREA OF THE RM80 (559,0). 

INPUTS * 

tSSFLB = DISK ADDRESS OF START OF SKIP SECTOR FILE 
OUTPUTS: 

WRITE SKIP SECTOR FILE 


004767 

012703 

004767 

012700 

012701 

004767 

010120 

012701 

004767 

010110 

012767 

012705 

012703 


000442 
OOOOOOG 
1 76420 
OOOOOOG 
177777G 
1 76364 

177777G 

176352 

OOOOOOC OOOOOOG 

OOOOOOG 

OOOOOOC 


$UTSSF::CALL 

MOV 


SSRTSF 

#$PHYDV.R3 

SUPDMX 

fSSSF ,R0 

#$SSFHD-1.R1 

SSFCRC 

RI.(RO)* 

#$SSFDT-1,R1 

SSFCRC 

RI.(RO) 

#512.*<$SSFLN> 

#$SSF,R5 

#10. FEW! 1Q.UMD 


; SORT THE SSF 

; PHYSICAL DEVICE ADDRESS POINDER 
; UPDATE THE ADDRESS VALUES 
;GET POINTER TO SKIP SECTOR FILE 
;GET LENGTH OF HEADER 
; COMPUTE HEADER CHECKSUM 
.'STORE CRC AWAY 
;GET LENGTH OF SSF DATA AREA 
;G0 COMPUTE CHECKSUM OVER DATA 
; STORE THE DATA FIELD CRC 
.SXFRSZ ; SET SIZE OF ONE COPY OF SSF (BYTES) 
:SET SKlf» SECTOR FILE BUFFER ADDRESS 
,R$ ; SET WRITE FE CYLINDER FUNCTION 
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o J 


SEO 0053 


669 002042 

670 002050 

671 002056 

672 002062 

673 002066 

674 002G74 

675 002100 

676 002102 

677 002104 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 002106 

699 002110 

700 002114 
002116 
002122 

703 002124 

704 002132 

705 002134 

706 002136 

707 002140 

708 002142 

709 002144 

710 002146 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 
72? 

724 

725 


701 

702 


016767 

016767 

016701 

004767 

062767 

105567 

005301 

001367 

000207 


OOOOOOG OOOOOOG 
000C02G OOOOOOG 
OOOOOOG 

OOOOOOG 1$: 

OOOOOOG OOOOOOG 
OOOOOOG 


2 $: 


MOV 

SSSFLB.SLBNH 

MOV 

sssflb*2.$lbnl 

MOV 

SSSFSZ.R1 

CALL 

SDSKIO 

ADD 

#SSSFLN,SLBNL 

ADCB 

SLBNH 

DEC 

R1 

BNE 

RETURN 

IS 


SETUP LBN 

'GET NUMBER OF COPIES OF SKI? SFCTOR FILE 
WRITE THE SSF 
UPDATE BLOCK NUMBER 

NNISHED ? 

IF NE, NO 


••-SSRTRK-SEARCH BSF OR SSF FOR AN 1 SECTOR ON A TRACK 

THIS ROUTINE WILL SEARCH EITHER THE BSF OR THE SSF FOR ANY SECTOR 
ON THE CURRENT TRACK AND CYLINDER. IF ONE IS FOUND, THEN NO ADDITIONAL 
SECTORS MAY BE SKIPPED ON THE CURRENT TRACK AND CYLINDER. 


INPUTS: 

R1 = 
R2 = 

OUTPUTS: 

CC = 

CS = 


ADDRESS OF EITHER BSF OR SSF 

MAXIMUM ADDRESS OF THE FILE SPECIFIED IN R1 


SOME SECTOR ON THE CURRENT TRACK AND CYLINDER 
R1 = ADDRESS OF BSF OR SSF ENTRY 
SPECIFIED FILE EXHAUSTED 
R1 s POINTS TO NEXT ENTRY 


022121 


SSRTRK : : CMP 

(R1 )♦, (R1 ) ♦ 

021127 

177777 

CMP 

(R 1 ) ,#-1 

001413 


BEQ 

3S 

02H67 

OOOOOOG 

CMP 

(RI).SCYL 

001006 


BNE 

2 S 

126167 

000003 

OOOOOOG CMPB 

3(R1).STRK 

001002 


BNE 

21 

000241 


IS: CL C 


000207 


RETURN 


020102 


2S: CMP 

R1.R2 

001361 


BNE 

SSRTRK 

000261 


3S: SEC 


000207 


RETURN 



POINT OT NEXT ENTRY IN SPECIFIED FILE 
FILE EXHAUSTED 
IF EO, YES 

CYLINDER NUMBER MATCH ? 

IF NE, NO 

TRACK NUMBERS MATCH ? 

IF NE, NO 

SHOW ENTRY WAS FOUND 

IS SPECIFIED FILE EXHAUSTED ? 

IF NE, NO 

SHOW SPECIFIED FILE EXHAUSTED 


**-SSRALL-SEARCH ALL THE BAD SECTOR FILES 
SSRFES-SEARCH THE FE CYLINDER BUFFER 
SSRMDF-SEARCH MANUFACTURER’S BAD SECTOR FILE 
SSRUDF-SEARCH THE USER’S BAD SECTOR FILE 
SSRSDF-SEARCH THE SKIPPED SECTOR FILE 
SSRSSF-SEARCH THE FILE SPECIFIED BY R1 l R2 

THIS ROUTINE WILL SEARCH THE SPECIFIED FILE FOR A MATCH. 

INPUTS * 

SSEC, STRK , AND SCYL PRESET 
’SSMBSF* INPUTS: 
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SEO 0054 


726 

727 

728 

729 
750 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 
7 58 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 


002150 
002154 
002160 
002162 
002166 
002170 
0021 74 
002200 
002202 
002206 
002210 
002214 
002220 

002222 

002226 

002232 

002234 

002240 

002244 

002246 

002252 

002256 

002260 

002264 

002270 


002270 
002272 
002276 
002300 
002304 
002306 
002314 
002316 
002324 
002326 
002330 
002332 

779 002334 

780 002336 

781 002340 

782 


016746 

004767 

103015 

004767 

103402 

105367 

004767 

103005 

004767 

103002 

004767 

012667 

000207 

012701 

012702 

000416 

012701 

012702 

000411 

012701 

012702 

000404 

012701 

012702 


022121 

021127 

001417 

021167 

001012 

126167 

001006 

126167 

001002 

000241 

000207 

020102 

001355 

000261 

000207 


R1 = ADDRESS OF LAST BSF ENTRY (INITIALLY $BSF*4> 
R2 = LAST ADDRESS OF SPECIFIED FILE 

OUTPUTS: 

IF CC R1 = ADDRESS OF MDBSF ENTRY. 

R3 = ISOLATED BAD SECTOR FLAGS. 

IF CS R1 = POINTS TO NEXT ENTRY (FILE EXHAUSTED) 



. ENABL LSB 



OOOOOOG 

000100 

000154 

OOOOOOG 

000034 

000040 

000006 

OOOOOOG 

JSRALL: :MOV 

CALL 

BCC 

CALL 

BCS 

DECB 

1$: CALL 

BCC 

call 

BCC 

CALL 

2S: MOV 

RETURN 

SSEC.-(SP) 

SSRSDF 

2S 

SSRSSF 

IS 

SSEC 

SSRMDF 

2S 

SSRUDF 

2S 

SSRFES 

<SP)*,SSEC 

SAVE THE SECTOR ADDRESS 

SEE IF ENTRY IN THE SSF 

IF CC, IT IS 

SEE IF ERROR SECTOR IS WITHIN A SKIP REGION 
IF CS, NO 

DECREMENT THE SECTOR ADDRESS 

SEARCH TNE MDBSF 

IF CC, ADDRESS PRESENT 

SEARCH THE UDBSF 

IF CC. ADDRESS PRESENT 

SEE IF ENTRY DUPLICATED IN THE FE AREA 
RESTORE THE SECTOR ADDRESS 

177774G 

0001 OOG 

SSRFES: :MOV 

MOV 

BR 

#SFEBSF-4,R1 

#SFEBSF+64.,R2 

3S 

FEBSF STARTING ADDRESS 

FEBSF LENGTH 

0:0004G 

000774G 

SSRMDF : :MOV 

MOV 

BR 

fSMDBSF *4.R1 : MDBSF STARTING ADDRESS 

ASMDBSF ♦1000-4, R* ; MDBSF LENGTH 

38 

000004 G 
000774G 

SSRUDF : :MOV 

MOV 

BR 

#SUDBSFH X R1 • UDBSF STARTING ADDRESS 

VSUDBSF ♦l600-4,R2 ; UDBSF LENGTH 

3S 

OOOOOOC 

OOOOOOC 

SSRSDF : :MOV 

MOV 

fSSSf ♦<2*SSSFHD>-4,R1 ; SSF STARTING ADDRESS (-4) 

#SSSF+<1000*SSSFLN>-2,R2 ; SSF ENDING ADDRESS 




SSMBSF : 

:CMP 

(R1 ) ♦, <R1 )♦ 

POINT TO NEXT MDBSF ENTRY 

177777 



CMP 

(R1),#-1 

MDBSF EXHAUSTED? 




BEQ 

5$ 

IF EQ YES 

OOOOOOG 



CMP 

(RU.SCYl 

CYLINDER NUMBERS MATCH? 




BNE 

4$ 

IF NE NO 

000003 

OOOOOOG 


CMPB 

3(R1).$TRK 

TRACK NUMBERS MATCH? 




BNE 

4$ 

IF NE NO 

000002 

OOOOOOG 


CMPB 

2(R1 ) .SSEC 

SECTOR NUMBERS MATCH? 




BNE 

4$ 

IF NE NO 




CL C 

RETURN 


SHOW ENTRY WAS FOUND 



4$: 

CMP 

R1.R2 

IS SPECIFIED FILE EXHAUSTED? 




BNE 

38 

IF NE. NO 



5S: 

SEC 

RETURN 


SHOW MDBSF EXHAUSTED 



. DSABL 

LSB 
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••-SSRSSF-SEARCH SSF FOR AN TRACK ENTRY 

THIS ROUTINE WILL SLARCH THE SSF FOR AN ENTRY ON THE CURRENT TRACK AND 
CYLINDER. IF AN ENTRY IS FOUND WHICH IS LESS THAN THE SECTOR ADDRESS 
IN 'SSEC\ THE ROUTINE WILL RETURN WITH THE 'C' BIT CLEAR. 

INPUTS: 

SCYL LOADED WITH THE CYLINDER ADDRESS 
STRK LOADED WITH THE TRACK ADDRESS 
SSEC LOADED WITH THE SECTOR ADDRESS 


OUTPUTS: 

CC = 
CS = 


SSF ENTRY .LE. ADDRESS IN SCYL, STRK, SSEC 
NO SSF ENTRY .LE. ADDRESS IN SCYL .STRK .SSEC 


801 002342 

010146 



SSRSSF: 

:MOV 

RI.-(SP) 

SAVE R1 

802 00234'. 

012701 

OOOOOOC 



NOV 

#SSSF *<2*SSSFHD> 

R1 ; BEGINNING ADDRESS OF SSF 

803 002350 

021167 

OOOOOOG 


IS: 

CNP 

(RI).SCYL 

CYLINDER nunbers NATCH ? 

804 002354 

001012 




BNE 

2S 

IF NE, NO 

805 002356 

126167 

000003 

OOOOOOG 


CNPB 

3<R1).STRK 

TRACK NUNBERS NATCH ? 

806 002364 

001006 




BNE 

2S 

IF NE, NO 

807 002366 

126167 

000002 

OOOOOOG 


CNPB 

2CRD.SSEC 

CHECK FOR A SECTOR 

808 002374 

101011 




BHI 

3S 

IF HI, SSF ENTRY 

SHOW 'SSEC* IS WITHIN SKIP REGION 

809 002376 

000241 




CLC 


810 002400 

811 

812 002402 

000410 




BR 

4S 

OK, EXIT 

020127 

OOOOOOC 


21 : 

CNP 

R1.#SSSF»<1000*SSSFLN>-2 ; SSF BUFFER END ? 

813 002406 

001404 




BEQ 

3S 

IF EQ, YES 

814 002410 

022121 




CNP 

(R1 >♦, (R1 )♦ 

INCRENENT BUFFER POINTER 

815 002412 

021127 

177777 



CNP 

<R1>.#-1 

SEE IF END OF DATA 

816 002416 

001354 




BNE 

IS 

IF NE, NO 

SHOW ‘SSEC* NOT IN SKIP REGION 

817 002420 

000261 



3S: 

SEC 


818 002422 

012601 



4S: 

NOV 

(SP> ♦ ,R1 

RESTORE R1 

819 002424 

000207 




RETURN 




820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 002426 

833 002434 

834 002440 

835 002444 

836 002450 

837 002452 

83 8 002456 

839 


••-SSRTSF-SORT THE SSF BUFFER 

INPUTS: 

NONE 

OUTPUTS: 

SSF FILE SORTED IN ASCENDING SEQUENCE 


012767 

005067 

005067 

004767 

010103 

012701 

000167 


001061 OOOUOOG SSRTSF : :NOV 
OOOOOOG CLR 

OOOOOOG CLR 

177610 CALL 

NOV 

OOOOOOC NOV 

000070 JNP 


#561 . ,tCYL 

STRK 

SSEC 

SSRSDF 

R1.R3 

#SSSF*<2*SSSFHD> 

SSORT 


LOAD A PHONY CYLINDER ADDRESS 
CLEAR THE TRACK ADDRESS 
h " SECTOR M 
FIND THE END OF THE DATA 
COPY THE END OF DATA POINTER 
R1 ; SSF STARTING ADDRESS 
SORT THE SSF 
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E 5 


840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 


**-$SRTMf -SORT THE MOBS? BUFFER 

INPUTS: 

NONE 

OUTPUTS: 

MDBSF SORTED IN ASCENDING SEQUENCE 


851 

002462 

012767 

001061 OOOOOOG 

SSRTMF : :M0V 

#561 . ,$CYL 

852 

002470 

005067 

OOOOOOG 

CLR 

STRK 

853 

002474 

005067 

0OQ000G 

CLR 

SSEC 

854 

002500 

004767 

177530 

CALL 

SSRMDF 

855 

002504 

010103 


MOV 

R1.R3 

856 

002504 

012701 

00001 OG 

MOV 

#$MDBSF *10, R1 

857 

0025 t 2 

000167 

000034 

JMP 

SSORT 


858 

859 

860 
861 
862 
863 


LOAD A PHONY CYLINDER ADDRESS 
CLEAR THE TRACK ADDRESS 
" *’ SECTOR *' 

SEARCH THE MDBSF 
COPY T HE END OF DATA POINTER 
MDBSF STARTING ADDRESS 
SORT THE MDBSF 


'•-SSRTUF-SORT THE UDBSF BUFFER 
INPUTS: 


864 



NONE 



865 






866 



OUTPUTS: 



867 



UDBSF SORTED IN ASCENDING 

SEQUENCE 

868 






869 



• 



370 






871 002516 

012767 

001061 OOOOOOG SSRTUF : :MOV 

#561 . # SCYL ; 

load a phony cylinder ADDRESS 

872 002524 

005067 

OOOOOOG 

CLR 

STRK 

CLEAR THE TRACK ADDRESS 

873 002530 

005067 

OOOOOOG 

CLR 

SSEC ; 

” " SECTOR " 

874 002534 

004767 

177506 

CALL 

SSRUDF ; 

SEARCH THE UDBSF 

875 002540 

010103 


MOV 

R1.R3 ; 

COPY the end of data pointer 

876 002542 

012701 

00001 OG 

MOV 

#SUDBSF ♦lO.RI 

UDBSF STARTING ADDRESS 

877 002546 

878 

000167 

000000 

JMP 

SSORT ; 

SORT THE UMDBSF 

879 



♦ 



880 



**-SSORT-SORT 

THE INPUT TABLE 


881 



THIS ROUTINE 

SORTS THE INPUT TA.1LE IN ASCENDING ORDER 

882 



BASED ON DISK 

ADDRESSES. 



883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 002552 

894 002554 

895 002556 

896 002562 


INPUTS: 

R1 = TABLE START ADDRESS 
R3 = TABLE UPPER LIMIT ADDRESS 

OUTPUTS: 

SORTED TABLE 


010302 

160102 

022702 

103042 


SSORT: 


000004 


MOV 

SUB 

CMP 

BHIS 


R3.R2 

R1.R2 

#4,R2 

4$ 


R2 = CURRENT ENTRY POINTER 
TEST FOR AT LEAST 
TUO ENTRIES IN TABLE 
IF NOT (HIS) , NO NEED TO SORT 
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f j 


897 002564 

010102 




MOV 

R1.R2 

INI T R2 

898 002566 

022222 




CMP 

(R2)+.(R2>+ 


899 002570 

010367 

000076 



MOV 

R3.TEMP 

FORM AND SAVE 

900 002574 

162767 

000004 

000070 


SUB 

#4.TEMP 

UPPER LIMIT ON Rl 

901 002602 

021112 



1$: CMP 

(R1).(R2) 

CYL I = CYL 1*1? 

902 002604 

002417 




BLT 

3S 

IF LT YES 

903 002606 

001004 




BNE 

2S 

IF NE CYL I ✓ CYL 1*1 

904 002610 

026162 

000002 

000002 


CMP 

2<R1),2<R25 

CYL I s CYL 1 + 1 ... TEST TRK/SEC 

905 002616 

003412 




BLE 

3t 

IF LE NO SWAP NECESSARY 

906 002620 

011146 



2 S: MOV 

(Rl).-(SP) 

SWAP ENTRIES 

907 002622 

016146 

000002 



MOV 

2(R1i.-(SP> 


908 002626 

011211 




MOV 

(R2),(R1) 


909 002630 

016261 

000002 

000002 


MOV 

2<R2) ,2(R1 ) 


910 002636 

012662 

000002 



MOV 

<SP)*,2(R2> 


911 002642 

012612 




MOV 

(SP)+,(R2) 


912 002644 

022222 



3t: CMP 

(R2> ♦ . <R2> ♦ 

UPDATE R2 

913 002646 

020203 




CMP 

R2.R3 

THIS PASS DONE? 

914 002650 

002754 




BLT 

It 

IF LT NO 

915 002652 

022121 




CMP 

(Rl )♦ , (Rl )♦ 

UPDATE Rl 

916 002654 

020167 

000012 



CMP 

R1 .TEMP 

ALL DONE? 

917 002660 

002003 




BGE 

4t 

IF GE YES 

918 002662 

010102 




MOV 

Rl -R2 

RESET R2 

919 002664 

022222 




CMP 

(R2) +, <R2) ♦ 


920 002666 

000745 




BR 

It 


921 002670 

000207 



41: RETURN 


922 








923 002672 

000000 



TEMP: .WORD 

0 

SORT WORK LOCATION 

924 








925 





♦ 



926 





••-GENHOR-GENERATE HEADER WORD 

PATTERN 

927 








928 





THIS SUBROUTINE URL GENENRATE 

THE 2-WORD HEADER PATTERN. 

929 








930 





INPUTS: 



931 





RO = 

BUFFER ADDRESS 


932 








933 





OUTPTUS: 



934 





RO = 

UPDATED BUFFER ADDRESS 

935 





- 



936 








937 002674 

016710 

OOOOOOG 


GENHDR: :HOV 

tCVL.(RO) 

SET CYLINDER NUMBER 

938 002700 

116760 

OOOOOOG 

000002 


MOVB 

tSEC,2(R0) 

SET SECTOR NUMBER 

939 002706 

116760 

OOOOOOG 

000003 


MOVB 

tTRK.MRO) 

SET TRACK NUMBER 

940 002714 

052710 

150000 



BIS 

#1 50000. (RO) 

SET GOOD SECTOR AND 16-BIT FORMAT BITS 

941 002720 

116746 

OOOOOOG 



MOVB 

tSEC.-(SP) 

SAVE THE CURRENT SECTOR ADDRESS 

942 








943 





SEARCH THE 

SKIP SECTOR FILE FOR A SECTOR ON THIS TRACK THE SAME AS 

944 





*tSEC\ IF 

A SECTOR IS FOUND. 

THEN SET THE SKIP SECTOR FLAG IN THE 

945 





REMAINING HEAD'RS AND NOTE THAT A SKIPPED SECTOR WAS FOUND. 

946 

947 002724 

004767 

177330 


It: CALL 

tSRSDF 

SEARCH FOR ‘tSEC* IN SKIP SECTOR FILE 

948 002730 

103403 




BCS 

2t 

IF CS. NOT IN SSF 

949 002732 

052710 

0<?0000 



BIS 

#20000. (RO) 

SET SKIP SECTOR FLAG (BAD) 

950 002736 

000430 




BR 

6t 

EXIT 

951 002740 

004767 

177376 


2$: CALL 

tSRSSF 

SEARCH FOR ’SSEC’ WITHIN SKIP REGION 

952 002744 

103404 




BCS 

3t 

IF CS. NOT IN SSF 

953 002746 

052710 

020000 



BIS 

#20000, (RO) 

SET SKIP SECTOR FLAG IN HEADER (BAD) 
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954 002752 

955 

105367 

OOOOOOG 


DECB 

SSEC 

DECREMENT THE SECTOR ADDRESS 

956 



; SEARCH THE MDBSF , UDBSf , & THE 

FE BSF BUFFER FOR A MATCH. IF ONE IS 

957 

953 



; FOUND 

. SET THE 

BAD SECTOR BITS 

IN THE APPROPRIATE HEADER. 

959 002756 

004767 

177252 

3$. 

CALL 

SSRMDF 

SEARCH THE MDBSF 

960 002762 

103403 



BCS 

4$ 

IF CS, MDBSF EXHAUSTED 

961 002764 

042710 

100000 


B1C 

#100000. (RO) 

CLEAR THE MF BIT (BAD) 

962 002770 

000413 



BR 

6$ 


963 







964 002772 

004767 

177250 

4S: 

CALL 

SSRUDF 

SEARCH THE UDBSF 

965 002776 

103403 



BCS 

5$ 

IF CS, UDBSF EXHAUSTED 

966 003000 

042710 

040000 


BIC 

#40000, (RO) 

CLEAR THE UF BIT (BAD) 

967 003004 

000405 



BR 

6S 


968 







969 003006 

004767 

177210 

5S: 

CALL 

SSRFES 

SEARCH THE FE BSF 

970 003012 

103402 



BCS 

6$ 

IF CS, FE BSF EXHAUSTED 

971 003014 

042710 

140000 


BIC 

#140000, (RO) 

CLEAR BOTH THE UF t MF BITS (BAD) 

972 003020 

112667 

OOOOOOG 

6$: 

MOVB 

(SP) ♦ ,SSEC 

RESTORE THE SECTOR ADDRESS 

973 003024 

066700 

OOOOOOG 


ADD 

SECS2.R0 

UPDATE BUFFER ADDRESS 

974 003030 

000207 



RETURN 



975 







976 

000001 


.END 





n •) 
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ERR0U1 

000050R 

»CBDMG= 


SMSG1 8= 

Ittttt 

GX 

SPRINT = 


SSRUDF 002246RG 

GENHDR 

002674RG 

SCB0MG= 

****** GX 

SMSG19= 

****** 

GX 

SPRMPT 

000250RG 

SSSF = ****** GX 

IO.FER= 

in r cu- 

****** GX 

SCVTDA 

tr vi - 

0001 32RG 

JMSG21 = 

cucr.Oi- 

****** 

GX 

rw 

$PRNTO= 

****** GX 

AAA1 1 40 r 

$SSFDT= ****** GX 

iu • r cw- 
IO.HMS= 


T L 

$DSKI0= 

****** UA 

IHjUtQ" 

SMSG40= 

****** 

V>X 

GX 

•KDBbr 

SRDSSF 

yuuoi ORo 

00H52RG 

****** QX 
SSSFLB= ****** GX 

IO.RLB= 


$DVKE = 


SMSG41 = 

****** 

GX 

SREAD = 


SSSFLN= ****** GX 

?O.WLT= 


$DVUNT= 

****** GX 

SMSG42= 

****** 

GX 

SSEC = 

****** GX 

SSSF SZ= ****** GX 

IQ.UMD= 


SEROCT 

000074RG 

$MSG43= 

****** 

GX 

ISMBSF 

002270RG 

$SWLST= ****** GX 

10. X = 

****** GX 

SEROUT 

000032RG 

SMSG44= 

****** 

GX 

SSNAME= 

****** GX 

SSWMOD= ****** GX 

MSG 

000336R 

SFEBSF= 

****** GX 

SMSG58= 

****** 

GX 

tSORT 

002552R 

STRK = ****** GX 

MSGER8= 

****** GX 

SHOMSK 

000204RG 

SMSG59= 

****** 

GX 

ssrall 

0021 50RG 

STSTPA 000454RG 

RDBSF 

001116R 

HOST = 

****** GX 

jmult 

000342RG 

SSRFES 

002222RG 

STSTMX 000512RG 

SECSZ = 

****** GX 

slbnh = 


smvpat 

OOOOOORG 

SSRMDF 

002234RG 

tUBSSZ= ****** GX 

SSFCRC 

000374R 

SLBNL = 


smxcyl= 


GX 

SSRSDF 

002260RG 

SUDBSF = ****** GX 

TEMP 

002672R 

$L0GDV= 


SMXLBN= 

****** 

GX 

tSRSSF 

002342RG 

JUNTID 000562RG 

TRKSZ = 

*••*** GX 

SMBSSZ= 


SMXSEC= 

****** 

GX 

SSRTMF 

002462RG 

SUPDMX 00041 4RG 

VYBSF 

001 1 36R 

SMDBSF = 

****** GX 

SMXTRK= 


GX 

SSRTRK 

002106RG 

SWTBSF 001224RG 

$alflb= 

****** GX 

SMOVE 

000240RG 

SPAT = 


GX 

SSRTSF 

002426RG 

SWTSSF 001760RG 

S8UF = 


tMSGWR= 


$PHYDV= 


GX 

SSRTUF 

002516RG 

tXFRSZ= ****** GX 


SBUFRX= ****** GX 

. ABS. OOOOOO 000 

003032 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 908 WORDS ( A PAGES) 
DYNAMIC MEMORY: 7942 WORDS C 30 PAGES) 
ELAPSED TIME: 00:00:31 
C300.20]FMTSUB.C300.303FMTSUB=C300.103FMTSUB 
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title FMTPRS - GET AND PARSE COMMAND LINE 
IDENT /01 .00/ 

COPYRIGHT (C) 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE *ADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 
M. LEAVITT 


U-AUG-80 

14-0CT-80 


000000 


•MCALL DIRS, ISTATS. STATE!, TRANS 
.MCALL DEVDFS 
DEVDFS 
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J 5 


SEO 006' 


3A 

35 


38 

39 
AO 

41 

42 
A3 
AA 
AS 
A6 
A 7 
A8 


A 9 000000 

005227 

177777 


SPARSE: 

INC 

#-1 

FIRST TIME THRU HERE ? 

50 OOOOOA 

001 AOA 




BEQ 

IS 

BR IF YES 

51 000006 

012700 

OOOOOOG 



MOV 

ASSTARS.RO 

GET ADDRESS OF MESSAGE 

52 000012 

OOA767 

OOOOOOG 



CALL 

SPRINT 

PRINT •*******»** , <LF> 

53 000016 

012700 

OOOOOOG 


IS: 

MOV 

ASMSG7O.R0 

GET PROMPT MESSAGE ADDRESS 

5A 000022 

00A767 

OOOOOOG 



CALL 

SPRMPT 

PROMPT USER AND GET RESPONSE 

55 000026 

001006 




BNE 

2S 

IF NE COMMAND LINE ENTERED 

56 000030 

122767 

OOOOOOC 

OOOOOOG 


CHPB 

#IE .E0F1377.SI0S 

; END OF INPUT? 

57 000036 

001367 




BNE 

IS 

IF NE NO 

58 0000 AO 

59 

60 

61 

6 2 OOOOAA 

000167 

OOOOOOG 



JMP 

SFMTEX 

EXIT GRACEFULLY 




; SETUP 

TO CALL 

THE PARSER 


005001 



2S: 

CLR 

R1 

CLEAR OPTIONS WORD 

63 0000A6 

012702 

000000* 



MOV 

fUNTKTI # R2 

GET KEYWORD TABLE ADDRESS 

6A 000052 

01270A 

OOOOOOG 



MOV 

tSBUFRX.RA 

#UN!T.R5 

GET ADDRESS OF COMMAND LINE 

65 000056 

012705 

000000* 



MOV 

GET STARTING STATE ADDRESS 

66 000062 

012767 

177777 

OOOOOOG 


MOV 

#-1 .SDVUNT 

RESET DEVICE NUMBER 

67 000070 

00A767 

OOOOOOG 



CALL 

.TPARS 

GO PARSE THE INPUT LINE 

68 00007A 

103A35 




BCS 

SYNTAX 

IF CS SYNTAX ERROR 

69 000076 

005767 

OOOOOOG 



TST 

SDVUNT 

NULL PARSE? 

70 000102 

1007A5 




BMI 

IS 

IF MI. YES 

71 0001 OA 

012700 

OOOOOOG 


3S: 

MOV 

«SMSG71 ,R0 

GET PROMPT MESSAGE AODRESS 

72 000110 

00A767 

OOOOOOG 



CALL 

SPRMPT 

PROMPT USER AND GET RESPONSE 

73 00011 A 

001006 




BNE 

AS 

IF NE COMMAND LINE ENTERED 

7A 000116 

122767 

OOOOOOC 

OOOOOOG 


CMPB 

#IE,EOFI377.SIOS 

T ; END OF INPUT? 

75 000 12A 

001002 




BNE 

AS 

IF NE NO 

76 000126 

000167 

OOOOOOG 



JMP 

SFMTEX 

EXIT GRACEFULLY 

77 000132 

005001 



AS: 

CLR 

R1 

CLEAR OPTIONS WORD 

78 0001 3A 

012702 

000000' 



MOV 

#OPTKT2,R2 

GET KEYWORD TABLE ADDRESS 

79 0001 AO 

01270A 

OOOOOOG 



MOV 

tSBUFRX.RA 

GET ADDRESS OF COMMAND LINE 

80 0001 AA 

012705 

000010* 



MOV 

#OPT I0N.R5 

GET STARTING STATE ADDRESS 

81 000150 

00A767 

OOOOOOG 



CALL 

.TPARS 

GO PARSE THE INPUT LINE 

82 0001 5A 

103A05 




BCS 

SYNTAX 

IF CS SYNTAX ERROR 

83 000156 

00A767 

0001 3A 



CALL 

STSTDV 

MAKE A FINAL DEVICE TEST 

8A 000162 

016701 

OOOOOOG 



MOV 

SDVUNT. R1 

SET SPECIFIED UNIT NUMBER 

85 000166 

86 

87 000170 

000207 




RETURN 


ALL IS OK 

012700 

OOOOOOG 


SYNTAX: 

MOV 

«SRSG2,R0 

SYNTAX ERROR 

88 0001 7A 

000167 

OOOOOOG 



JMP 

SMSGUR 

EXIT WITH WARNING STATUS 


89 

90 
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SEQ 006 


91 

92 

93 

94 

95 

96 

97 000200 

98 

99 
100 

101 000200 
102 000200 

103 000200 

104 

105 000200 

106 

107 

108 000200 

109 

110 
111 

112 000200 

113 000200 

114 000200 

115 000200 

116 000200 

117 000200 

118 000200 

119 000200 

120 000200 
121 

122 

123 

124 000200 

125 000200 

126 

127 000200 

128 000200 

129 

130 

131 

132 000200 

133 000200 

134 

135 000200 

136 000200 

137 

138 

139 

140 000200 

141 000200 

142 

143 000200 

144 000200 


STATE TABLE FOR ' TPARS* PARSER 


. NL 1ST MEB 

I STATS UNTST1.UNTKT1 

; READ DEVICE AND UNIT NUMBER 

STATES UNIT 
TRANS SEOS'SEXIT 
TRANS SNUMBR , .SSTUNT 

STATES 


ISTATS 0PTST2.0PTKT2 
; PROCESS SWITCH OPTIONS 


TERMINATING STATE 


STATES 

TRANS 

TRANS 

TRANS 

TRANS 

TRANS 

TRANS 

TRANS 

TRANS 


option 
seos.se X 1 t 

“CSR ,CSR 
"VEC'.VEC 
"VFL“,Vf L 
"ERL", ERL 
"L l ,L I 
"f 0**,F0 
‘‘IN”, IN 


; SET NEW CSR ADDRESS 

STATES CSR 
TRANS * = 

STATES 

TRANS SNUMBR, SW I TCH.SST CSR 

; SET NEW VECTOR ADDRESS 

STATES VEC 
TRANS 

STATES 

TRANS SNUMBR. SWITCH, SSTVEC 

; SET VERIFY LIMIT (NUMBER OF TIMES TO VERIFY A SECTOR) 

STATES Vf L 
TRANS ’= 

STATES 

TRANS SDNUMB.SWITCH.SSTVFL 


; SET ERROR LIMIT 
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SEO 006' 


148 000200 

149 000200 

150 

151 000200 

152 000200 

153 

154 

155 

156 000200 

157 000200 

158 000200 

159 

160 000200 
161 000200 
162 

163 

164 

165 000200 

166 000200 

167 000200 

168 

169 000200 

170 000200 

171 

172 

173 

174 000200 

175 000200 

176 

177 

178 

179 000200 

180 000200 
181 000200 
182 

183 000200 

184 

185 

186 

187 

188 

189 

190 

191 000200 

192 000206 

193 000214 

194 000216 

195 

196 

197 

198 

199 

200 000222 
201 000226 

202 000234 

203 000236 

204 000242 


STATES ERL 
TRANS ’= 

STATES 

TRANS SDNUMB. SWITCH, SSTERL 

; SET BAD BLOCK FILE/SKIP SECTOR FILE LIST 

STATES LI 

TRANS ’ : ,LOG 

TRANS SLAMDA, SWITCH, SSTLIS 

STATES LOG 

TRANS *L. SWITCH, SSTLOG 

; SET FORMAT ENABLE 

STATES FO 
TRANS ’ : , F E 

TRANS SLAMDA. SWITCH. SSTFOR 
STATES FE 

TRANS 'F. SWITCH, SSTFFE 
; SET BSF/SSF INITIALIZATION 
STATES IN 

TRANS SLAMDA, SWITCH. SSTIN 

; CHECK FOR ANOTHER OPTION 

STATES SWITCH 
TRANS SEOS.SEXIT 
TRANS ’/.OPTION 


STATES 


; NULL (TERMINATING) STATE 


.ENABL LSB 


DEVICE UNIT NUMBER 


016767 OOOOOOG OOOOOOG SSTUNT::MOV 
026727 OOOOOOG 000007 CMP 
101402 BLOS 
000167 177746 JMP 


. PNUMB.SDVUNT 

SDVUNT,#7 

IS 

SYNTAX 


DETERMINE DEVICE VALIDITY 


016702 OOOOOOG IS: 
026762 OOOOOOG 000004 2 S: 
001407 

016202 000000 
001371 


SDEVHD.R2 
SDVICE ,D.NAM(R2) 

4$ 

D.LNK(R2).R2 

2S 


STORE UNIT NUMBER 

IS DRIVE NUMBER WITHIN RANGE ? 

IF LOS. YES 

SYNTAX ERROR 


ADDRESS OF 1ST DCB IN SYSTEM 
IS THIS THE RIGHT DCB? 

IF EQ YES 

POINT TO NEXT DCB 

LOOP TILL END OF LIST 
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SEQ ooe . 


205 000244 

206 000250 

207 000254 

208 000262 

209 000270 

210 000274 

211 000302 

212 000306 

213 000314 

214 

215 

216 

217 

218 

219 000316 

220 000322 

221 000326 

222 000332 

223 000336 

224 000344 

225 000346 

226 000350 

227 000354 

228 000356 

229 000362 

230 000370 

231 000376 

232 000402 

233 000410 

234 000412 

235 000416 

236 000420 

237 000424 

238 000426 

239 000434 

240 000436 

241 000440 

242 000444 

243 000446 

244 000452 

245 000454 

246 000460 

247 

248 

249 

250 

251 

252 

253 

254 000464 

255 000470 

256 000476 

257 000500 

258 000504 

259 000506 

260 000512 

261 000520 


012700 

000167 

116762 

116762 

016201 

116761 

010167 

016167 

000207 


016701 

016702 

016202 

013746 

012737 

005712 

103003 

012637 

000733 

012637 

012762 

116162 

016200 

032762 

001016 

022700 

001403 

022700 

001013 

032762 

001401 

000207 

012700 

000405 

012700 

000402 

012700 

000167 


016702 

026727 

103003 

012700 

000414 

013746 

012737 

005777 


OOOOOOG 

3$: 

MOV 

OOOOOOG 


JMP 

OOOOOOG 

000006 4*: 

MOVB 

OOOOOOG 

000007 

MOVB 

000002 


MOV 

OOOOOOG 

000006 

MOVB 

OOOOOOG 


MOV 

000020 

OOOOOOG 

MOV 

RETURN 


; TEST 

DEVICE 

OOOOOOG 

tTSTDV 

: :MOV 

OOOOOOG 


MOV 

000012 


MOV 

000004 


MOV 

000570' 

000004 

MOV 

TST 

BCC 

000004 


MOV 

BR 

000004 

5*: 

MOV 

000040 

000010 6*: 

MOV 

000006 

000010 

MOVB 

000026 


MOV 

010000 

000010 

BIT 

BNE 

024026 


CMP 

BEQ 

020026 


CMP 

BNE 

010000 

000012 7*: 

BIT 

BEQ 

RETURN 

OOOOOOG 

8*: 

MOV 

BR 

OOOOOOG 

9*: 

MOV 

BR 

OOOOOOG 

10*: 

MOV 

OOOOOOG 

11*: 

JMP 


.DSABL 

LSB 


; SET 

NEW CSR 

OOOOOOG 

SSTCSR: :MOV 

OOOOOOG 

160000 

CMP 

BH1S 

OOOOOOG 


MOV 

BR 

000004 

000570' 

It: 

MOV 

000004 

MOV 

OOOOOOG 


TST 


#SMSG4,R0 ; DEVICE NOT IN SYSTEM 

SMESAG : 

SDVUNT ,D.UNIT(R2) ; SET UNIT NUMBER RANGE 

SDVUNT .D.UN1 T+1 (R2) 

D.UCB(R2),R1 : GET UCB ADDRESS 

SDVUNT, U.UNlT(RI) ; SAVE SPECIF IED UNIT NUMBER 

R1.SUCB ; SAVE UCB ADDRESS 

U.SCB(R1),SSCB ; SAVE SCB ADDRESS 


SET UNIT NUMBER RANGE 


SUCB.R1 ; 

SSCB.R2 ; 

S.CSR(R2).R2 ; 

a#4.-(SP) ; 

#INTR.a#4 ; 

(R2) ; 

5S ; 

(SP>*.a#4 
3$ 

<sp>*.a#4 

#40.lO(R2> ; 

U.UNIT CR1 ) ,10(R2) 
26(R2),R0 
#10000, 10(R2) 

9$ 

#24026, RO 

7$ 

#20026, RO 
10S 

#10000. 12(R2> 

8 $ 

#SMSG7,R0 

11 * 

#*MSG72,R0 

11 * 

#*MSG73,R0 

SMESAG 


SUCB,R2 
.PNUMB, #160000 
IS 

#SMSG2.R0 

2 * 

a#4,-(SP) 
#lNTR,a#4 
a. PNUMB 


FETCH UCB ADDRESS 

FETCH SCB ADDRESS 

GET CSR ADDRESS 

SAVE TRAP VECTOR 

PUT OUR OWN IN ITS PLACE 

DOES CSR ADDRESS EXIST? 

IF CC YES 

RESTORE TRAP ADDRESS 
PRINT ERROR MESSAGE 
RESTORE TRAP ADDRESS 
CLEAR THE SUBSYSTEM 
; SELECT UNIT 
GET DRIVE TYPE REGISTER 
SEE IF DRIVE PRESENT 
IF NE, NO - 'NED* SET 
IS IT AN RM80 ? 

IF EO, YES 

CHECK OTHER DEVICE TYPE CODE 
IF NE, NO 

IS DRIVE ONLINE (MOL SET) ? 
IF EQ. NO 

DRIVE OFFLINE 

DRIVE NOT PRESENT 

DRIVE NOT AN RM80 


FETCH UCB ADDRESS 
CSR ADDRESS WITHIN RANGE? 
IF HIS YES 
SYNTAX ERROR 

SAVE INTERRUPT VECTOR 
SET UP OUR OWN VECTOR 
SEE IF IT'S ON THE BUS 
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SEQ 0065 


262 000524 

263 000526 

264 000532 

265 000536 

266 000542 

267 000550 

268 000554 

269 000560 

270 000566 

271 

272 

273 

274 000570 

275 000576 

276 

277 

278 

279 

280 


103006 

012637 

012700 

000167 

142762 

012637 

016702 

016762 

000207 


052766 

000002 


000004 

OOOOOOG 

OOOOOOG 

000001 000007 

000004 
OOOOOOG 
OOOOOOG 000012 


000001 000002 


BCC 3S 

MOV (SP)*.a#4 ; 

MOV MMSG28.R0 ; 

JMP tMESAG 

BICB *US.OFL,U.ST2(R2J 

MOV (SP>*,8#4 

MOV SSCB.R2 

MOV .PNUMB. S.CSRIR2) 

RETURN ; 


IF CC IT’S THERE 
RESTORE VECTOR 
CSR NOT IN SYSTEM 

; SET DEVICE ON-LINE 
RESTORE INTERRUPT VECTOR 
GET SCB ADDRESS 

; SET CSR ADDRESS 


; INTERRUPTS COME HERE ON NON-EXISTANT MEMORY TRAPS 
INTR: BIS #1.2(SP) ;; SET CARRY BIT IN 


SET NEW VECTOR ADDRESS 


SET CARRY BIT IN SAVED PS 
RETURN 


281 000600 

016700 

OOOOOOG 

SSTVEC: 

:MOV 

.PNUMB.RO 

FETCH NEW VECTOR ADDRESS 

282 000604 

020027 

001000 


CMP 

R0,#1000 

IS THE VECTOR IN A REASONABLE PLACE? 

283 000610 

103006 



BH1S 

2S 

IF HIS NO GOOD 

284 000o12 

032/00 

000003 


BIT 

#3.R0 

MULTIPLE OF 4? 

285 000616 

001407 



BEQ 

4$ 

IF EQ YES 

286 000620 

012700 

OOOOOOG 

IS: 

MOV 

#SMSG27,R0 

NOT MULTIPLE OF FOUR 

287 000624 

000402 



BR 

3S 


288 000626 

012700 

OOOOOOG 

2S: 

MOV 

#SMSG2,R0 

SYNTAX ERROR 

289 000632 

000167 

OOOOOOG 

3S: 

JMP 

SMESAG 


290 000636 

016702 

OOOOOOG 

4S: 

MOV 

SSCB.R2 

PICK UP SCB ADDRESS 

291 000642 

116202 

000005 


MOVB 

S.VCTCR2J.R2 

FcTCH OLD VECTOR ADDRESS 

292 000646 

042702 

177400 


B1C 

#177400, R^ 

THIS IS CHEAPER THAN ANOTHER WAY 

293 000652 

006302 



ASL 

R2 

COMPUTE ABSOLUTE ADDRESS 

294 000654 

006302 



ASL 

R2 


295 000656 

0H267 

OOOOOOG 


MOV 

<R2).SINADD 

GET RM80 DRIVER 1SR ADDRESS 

296 000662 

012712 

OOOOOOG 


MOV 

#SN0NSI.(R2> 

IGNORE INTERRUPT TO OLD VECTOR 

297 000666 

016710 

OOOOPOG 


MOV 

SINADD.(RO) 

NEW INTERRUPT VECTOR 

298 000672 

006200 



ASR 

RO 

FORM NEW VECTOR M0D4 

299 000674 

006200 



ASR 

RO 


300 000676 

016702 

OOOOOOG 


MOV 

SSCB.R2 

GET SCB ADDRESS 

301 000702 

110062 

000005 


MOVB 

R0.S.VCTCR2) 

SET NEW VECTOR ADDRESS 

302 000706 

000207 



RETURN 




303 

304 

305 

306 

307 

308 000710 

309 000716 

310 000720 

311 000724 

312 000726 

313 000734 

314 000736 

315 

316 

317 

318 


SET VERIFY COUNT 


022767 

103407 

005767 

001004 

116767 

000207 

000167 


000377 OOOOOOG SSTVFL::CMP 

BLO 

OOOOOOG TST 

BNE 

OOOOOOG OOOOOOG MOVB 

RETURN 

177226 1$: JMP 


#377, .PNUMB 
IS 

. PNUMH 
IS 

. PNUMB. SVER IF 
SYNTAX 


LIMIT WITHIN RANGE? 

IF LO NO 
STILL? 

IF NE NO 

SET VERIFICATION COUNT 
SYNTAX ERROR 


SET ERROR LIMIT 
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319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 
34 2 

343 

344 

345 

346 
34 ’ 

348 

349 

350 

351 


000742 

000750 

000752 

000756 

000760 

000766 

000770 


000774 

001000 

001004 


001006 

001012 

001016 


001020 

001024 


022767 

000377 

OOOOOOG 

SSTERL : 

: CMP 

#377, .PNUMB 

LIMIT WITHIN RANGE? 

103407 

005767 

001004 

116767 

OOOOOOG 

OOOOOOG 

OOOOOOG 


BLO 

T ST 

BNE 

MOVB 

16 

. PNUMH 

16 

. PNUMB. SSWERL 

IF LO NO 

still? 

IF NE NO 

SET ERROR LIMIT 

000207 

000167 

177174 


16: 

RETURN 

JMP 

SYNTAX 

SYNTAX ERROR 


SET LIST MODE 


(05267 

OOOOOOG 

• 

SSTLOG: : 1NCB 

SSWLOG 

; SET 

THE 

•LIST 

logical* SWITCH 

105267 

000207 

OOOOOOG 

SSTL IS : : INCB 

RETURN 

SSWLST 

; SET 
# 

THE 

•list 

' SWITCH 


SET ENABLE FORMAT SWITCH 


105267 

105267 

000207 

OOOOOOG 

OOOOOOG 

• 

SSTFFE : : INCB 
SSTFOR : : INCB 

RETURN 

SSWFFE 

SSWFMT 

; SET 
; SET 

THE ’FORMAT FE' SWITCH 

THE 'FORMAT* SWITCH 



; SET BSF/SSF 

INITIALIZATION 

SWITCH 


105267 

000207 

OOOOOOG 

SSTIN: : INCB 

RETURN 

6SWINT 

; set 

THE ’INITIALIZATION* SWITCH 


000001 .END 
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C SR 000050R 

002 

0PTKT2 OOOOOORG 

003 S3.RAL= 

DV,CCL= 000002 


0PTS T 2 00001 ORG 

002 S3.RCU= 

DV„COM= 020000 


SPARE = 000010 

S3. TAB= 

DV.D1R= 000010 


SP.E IP= 000001 

S3.VER= 

DV.F1U 040000 


SP.ENB= 000002 

S3.UAL= 

DV.1SP= 002000 


SP.LUG= 000004 

S3.WES= 

DV.MBC= 000400 


SWITCH 0001 56R 

002 S3.8BC= 

DV.MNT= 100000 


SYNTAX 0001 70R 

uc.alg= 

DV.MXD= 000100 


S.BMSK 177776 

UC.ATTs 

DV.OSP= 004000 


S.BMSV 177774 

UC.KIL= 

DV.PSE= 010000 


S.CON 000010 

UC.LGHs 

DV.REC= 000001 


S.CSR 000012 

UC.NPRs 

DV.SDI= 000020 


S.CTM 000006 

UC.PWFs 

DV.SQD= 000040 


S.FRK 000016 

UC.OUEs 

DV.SUL= 001000 


S.ITM 000007 

UNIT 

DV.TTY= 000004 


S.LHD 000000 

UNTKT1 

DV.UMD= 000200 


S.PKT 000014 

UNTST1 

D.DSP 000012 


S.PRI 000004 

US.AB0= 

D.LNK 000000 


S.RCNT 177772 

US. BSP= 

D.MSK 000014 


S.ROFF 177773 

US.BSYs 

D .NAM 000004 


S.STS 000011 

US. CRUs 

D.PCB 000034 


S.VCT 000005 

US.DSBs 

D.UCB 000002 


SI .BEL- 000400 

US.ECH= 

D.UCBL 000010 


S1.CT0= 000040 

US.FORs 

D.UNIT 000C06 


S1.CTS= 010000 

US.FRK= 

D.VCANs 000002 


SI .DEC= 002000 

US.KPF= 

D.VDEB= 177776 


S1.DPR= 001000 

US. LABs 

D.VINI= 000000 


S1.DSI= 004000 

US.MDE= 

O.VOUT= 000004 


S1.ESC= 000004 

US.MDMs 

D.VPUF= 000006 


S1.IBF= 100000 

US.MNTs 

ERL 0001 OOR 

00 2 

S1.IBY= 000200 

US.OFL= 

FE 0001 42R 

002 

S1.0BY= 000100 

US.OUTs 

FO 0001 30R 

002 

S1.RAL= 000010 

US.PUB= 

IE .EOF = ****** GX 


S1.RNE= 000020 

US.PUFs 

IN 0001 50R 

002 

S1.RST= 000001 

US. REDs 

INTR 000570R 


S1.RUB= 000002 

US.SHRs 

LI 00011 OR 

002 

S1.USI= 020000 

US.SPU= 

LOG 0001 22R 

002 

S2.ACR= 000001 

US.UMD= 

L.ASG 000010 


S2.BRQ= 000020 

US.VV = 

L.LGTMs 000012 


S2.CR = 000010 

US.UCKs 

L.LNK 000000 


S2.FDX= 100000 

U.ACP = 

L .NAM 000002 


S2.FLF= 040000 

U.ATT 

L.TYPE 000005 


S2.HFF= 020000 

U.8UF 

L .UCB 000006 


S2.HFL= 003400 

U.C8F s 

L.UNIT 000004 


S2.HHT= 010000 

U.CLI 

M.BFVH 000011 


S2. IRQ= 000200 

U.CNT 

M.BFVL 000012 


S2.0RQ= 000100 

U.CTL 

M.LGTH= 000014 


S2.SRQ= 000040 

u.ctyp 

M.LNK 000000 


S2.VFL= 004000 

U.CU1 

M.UMRA 000002 


S2.URAs 000006 

U.CU2 

M.UMRN 000004 


S2.URB; 000002 

U.CU3 

M.UMVH 000010 


S3.BCC= 020000 

U.CU4 

M.UMVL 000006 


S3. DA0= 040000 

U.DCB 

OPTION 00001 OR 

002 

S3.PCU= 100000 

U.FCDF= 

. ABS. 1 77771 

000 



0010 2 ( 

001 




C 6 

02 PAGE 3-6 


SDVUNT = ****** GX 
SEOS = 000312 
SEXIT = 000000 
SFMTEX= ****** GX 
SINADD- ****** GX 
HOST = ****** GX 
$LAMDA= 000300 
$MESAG= ****** GX 
$MSGUR= ****** GX 
$MSG2 = ****** GX 
$MSG27= ****** GX 
SMSG28= ****** GX 
SMSG4 s ****** GX 
SMSG7 = ****** GX 
SMSG70* ****** GX 
$MSG71= ****** GX 
SMSG72= ****** GX 
$MSG73= ****** GX 
SN0NS1= ****** GX 
SNUMBRs 000302 
SPARSE OOOOOORG 
$PRINT= ****** GX 
SPRMPT= ****** GX 
SRAD50= 000316 
SSCB = ****** GX 
SSTARS= ****** GX 
SSTCSR C00464RG 
SSTERL 000742RG 
SSTFFE 001006RG 
SSTFOR 001012RG 
SSTIN Q01020RG 
SSTLIS 001000RG 
SSTLOG 000774RG 
SSTRNG-- 000304 
SSTUNT 000200RG 
SSTVEC 000600RG 
SSTVFL 00071 ORG 
SSUBXP= 000310 
SSUERL= ****** GX 
SSUFFE= ****** GX 
SSUFMT= ****** GX 
SSUINTs **-*•* GX 
SSUL0G= ****** GX 
SSULST= ****** GX 
002 STSTDV 000316RG 
002 SUCB = ****** GX 
SVERIF= ****** GX 
SSSFLG= 177777 
SSSKE Y= 000006 
SSSSTA= 00001 OR 
SSSTMP= 000026R 
. PNUMB= ****** GX 
. PNUMH= ****** GX 
. TPARS= ****** GX 


000010 

000400 

000100 

010000 

004000 

000040 

000200 

000200 

000010 

000004 

000003 

000100 

000020 

000040 

OOOOOOR 

OOOOOORG 

OOOOOORG 

000001 

000002 

000200 

000004 

000010 

000002 

000040 

000002 

000001 

000004 

000002 

000020 

000100 

000001 

000001 

000004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000032 

000022 

000024 

000032 

177772 

000030 

000004 

000050 

000010 

000012 

000014 

000016 

000000 

000040 


U.FNUM= 

U.FPS = 

U.KCSRs 

U.KCS6= 

U.LUIC 

U.OUN 

U.RED 

U.RPS = 

U.SCB 

U.STS 

U.ST2 

U.TCHP 

U.TCVP 

U.TFLK 

002 U.TFRO 

003 U.TLPP 

002 U.TMTI 

U.TSTA 

U.TTAB 

U.TTYP 

U.TUX 

U.UIC 

U.UNIT 

U.VCB = 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJ1= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LUC= 

U2.L3S= 

U2.L8S= 

U2.NEC= 

U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

VEC 

VFL 

SALPHA= 
SANY = 
SBLANK= 
SBUFRX= 
SDEVHD= 
SDIGIT = 
SDNUMB= 
t r c - 


000036 
000044 
000032 
000034 
177774 
177776 
000002 
000042 
000020 
000005 
000007 
00004 
00004 
000040 
000037 
000036 
000047 
000026 
000034 
000046 
000024 
000044 
000006 
000034 
000020 
002000 
10000G 
040000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
004000 
000010 
020000 
100000 
000004 
000200 
000002 
010000 
000060R 
000070R 
000322 
000320 
000306 
****** 
****** 
000324 
000314 


GX 

GX 


GX 


002 

004 


SEQ 0067 


D 

FMTPRS - GET AND PARSE COMMAND MACRO Mil 1 3 12-JAN-82 11:02 PAGE 3-7 
SYMBOL TABLE 

tSTATE 000166 002 

tKTAB 000016 003 

USTR 000031 004 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 3819 WORDS ( 15 PAGES) 

DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 

ELAPSED TIME: 00:01:21 

[ 300, 201 FMTPRS, [300. 30] FMTPRS=[1 ,1 DEXEMC/ML .[300,1 0] FMTPRS 
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JEQ 0068 
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SEO 0069 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

1 3 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

34 

35 

36 

37 000000 

38 000032 


TITLE FMTR80 - FORMAT/VERIFY RM80 DISKS 
IDENT 701.00/ 


COPYRIGHT (C> 1980 

DIGITAL EQUIPMENT CORPORATION. MAYNARD. MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER 
COPIES THEREOF. MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE 1ERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR reliability OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 1 

M. LEAVITT i 

NLIST CND.8EX 


18-AUG-80 

24-DEC-80 


; MESSAGES 

116 MS61R8: .ASCIZ <LF>/ENTER DATE (DD-MMM-YY) : / 
101 MSG2R8: .ASCIZ /HD A SERIAL NUMBER: / 

.EVEN 

; DATE FIELDS 


43 000056 

112 

101 

116 DAT: 

.ASCIZ 

/JAN/ 

44 000062 

106 

105 

102 

.ASCIZ 

/FEB/ 

45 000066 

115 

101 

122 

.ASCIZ 

/MAR/ 

46 000072 

101 

120 

122 

.ASCIZ 

/APR/ 

47 000075 

115 

101 

131 

.ASCIZ 

/MAY/ 

48 000102 

112 

125 

116 

.ASCIZ 

/JUN/ 

49 000106 

112 

125 

114 

.ASCIZ 

/JUL/ 

50 000112 

101 

125 

107 

.ASCIZ 

/AUG/ 

51 000116 

123 

105 

120 

.ASCIZ 

/SEP/ 

52 000122 

117 

103 

124 

.ASCI 7 

/OCT/ 

53 000126 

116 

117 

126 

.ASCIZ 

/NOV/ 

54 000132 

104 

105 

103 

.ASCIZ 

/DEC/ 

55 000136 

000000 



.WORD 

0 


.EVEN 


; VALID LIMITS FOR DATE FIELDS 
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60 

OOOKO 

000001 

000014 

DATlMT: .WORD 

1 .12 

61 

000144 

000001 

000037 

.WORD 

1 .31 

62 

000150 

000000 

000143 

.WORD 

0.99 

63 

000154 



DPARS : : .BLKW 

3 

64 






65 


000116 


BASYR == 78. 


66 







F 6 
1 


SEO 0070 


. FOR MON T H 
; FOR DAY 
; FOR YEAR 

; STORAGE FOR DATF CONVERSION 
; BASE YEAR = 1978 
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SEO 0071 



**-SRM80-F0RMAT /VERIFY RM80 DISK PACKS 

THIS ROUTINE UHL INITIATE THE FORMAT AND/OR verification 
OF AN RM80 DISK PACK. 

INPUTS: 

DISK PARAMETERS SET TO ZERO 

OUTPUTS: 

NONE. 


81 000162 

105767 

OOOOOOG 

SRM80: : 

TSTB 

SSW1NT 

82 000166 

001022 



BNE 

IS 

83 000170 

004767 

OOOOOOG 


CALL 

SRDSSF 

84 000174 

004767 

OOOOOOG 


CALL 

SRDBSF 

85 000200 

016767 

00001 OG OOOOOOG 


MOV 

SSSF ♦10.SPEVNM 

86 000206 

005767 

000310 


TST 

8S 

87 000212 

001010 



BNE 

IS 

88 000214 

012700 

000000' 


MOV 

#MSG1R8,R0 

89 000220 

90 

91 000224 

004767 

OOOOOOG 


CALL 

SPRMPT 

004767 

000274 


CALL 

DATE 

92 000230 

93 

94 000234 

005267 

000266 


INC 

8S 

105767 

OOOOOOG 

IS: 

TSTB 

sswlst 

95 000240 

001405 



BEQ 

2S 

96 000242 

004767 

OOOOOOG 


CALL 

SRM80L 

97 000246 

105767 

OOOOOOG 


TSTB 

SSWFMT 

98 000252 

001522 



BEQ 

7S 


99 


SEE IF SSF/BSF INITIALIZATION MODE 
IF NE. YES 

READ SKIP SECTOR FILE 

READ BAD SECTOR FILES 

GET CURRENT REVISION NUMBER 

HAS DATE BEEN ENTERED AT LEAST ONCE ? 

BR IF YES 

'ENTER DATE (DD-MMM-YY): * 

PROMPT THE USER - USER'S RESPONSE MAY BE EITHER: 

'MM/DD/YY' OR 'DD-MMM-YY' 

CONVERT USER'S ENTRY TO A BINARY DATE 
INDICATE THAT DATE HAS BEEN ENTERED ONCE 

DISPLAY THE DEC STD 144 AND SSF FILES ? 

IF EQ. NO 
DISPLAY HE FILES 
FORMAT THE HDA ALSO ? 

IF EQ. NO 


100 

101 

102 000254 012703 OOOOOOG 

103 000260 004767 OOOOOOG 

104 000264 012703 OOOOOOG 

105 000270 C04767 OOOOOOG 

106 000274 012700 0001 44G 

107 000300 004767 OOOOOOG 

108 000304 012700 OOOOOOG 

109 00031 C 004767 OOOOOOG 

110 000314 001501 

111 000316 122767 000131 OOOOOOG 

112 000324 001075 

113 000326 105767 OOOOOOG 

114 000332 001013 

115 000334 012700 OOOOOOG 

116 000340 004767 OOOOOOG 

117 000344 001451 

118 000346 122767 000131 OOOOOOG 

119 000354 001045 

120 000356 105267 OOOOOOG 

121 000362 012700 000000' 

12? 000366 004767 OOOOOOG 

123 

124 000372 004767 000126 


; INFORM THE OPERATOR THAT DATA URL BE DESTROYED 


2$: MOV 

CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
BEQ 
CMPB 
BNE 
TSTB 
BNE 
MOV 
CALL 
BEQ 
CMPB 
BNE 
INCB 

3$: MOV 

CALL 

CALL 


#SMSG23.R3 
SUNT ID 
#SMSG24,R3 
SMOVE 

#SBUF»100. ,R0 
SPRINT 
#SHSG31,R0 
SPRMPT 

7S 

f'Y.SBUFRX 

7S 

SSW1NT 

3S 

#SMSGR8,R0 

SPRMPT 

6S 

f'Y.SBUFRX 

6S 

SSUMOD 

#HSG1R8,R0 

SPRMPT 

DATE 


WARNING MESSAGE ADDRESS 
STORE MESSAGE AND DEVICE/UNIT 
ADDRSS OF MESSAGE SUFFIX 
MOVE THE SUFFIX 
PRINT WARNING MESSAGE 

GET CONFIRMATION ADDRESS 

PROMPT AND GET OPERATOR'S RESPONSE 

IF EQ. RESPONSE WAS 'NO' 

SEE IF RESPONSE WAS 'YES' 

IF NE, RESPONSE WAS 'NO* 

SEE IF SSF/BSF INITIALIZATION MODE 
IF NE, YES 

GET UPDATE MODE MESSAGE 
PROMPT AND GET RESPONSE 
IF EQ, NO 
WAS RESPONSE "Y "? 

IF NE, NO 

SET THE MODIFY FLAG 
'ENTER DATE (DD-MMM-YY): ' 

PROMPT THE USER - USER'S RESPONSE MAY BE EITHER: 

'MM/DD/YY' OR 'DD-MMM-YY' 

CONVERT USER'S ENTRY TO A BINARY DATE 
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SEO 0072 


INDICATE THAT DATE HAS BEEN ENTERED ONCE 

' HDA SERIAL NUMBER: ' 

PROMPT OPERATOR 

NUMBER Of BYTES ENTERED TO R4 

INPUT BUFFER ADDRESS 

OUTPUT BUFFER ADDRESS 

CONVERT THE S/N TO BINARY 

IF CS, BAD S/N ENTRY 

CORRECT THE SERIAL NUMBER ORDER 


INITIALIZE THE BAD SECTOR FILES ? 

IF EO, NO 

INIT THE DEC STD 144 AND SKIP SECTOR FILES 
EXIT 

GET UPDATE MODE INFORMATION 
READ SKIP SECTOR FILE 
READ BAD SECTOR FILES 
FORMAT THE DISK 
VERIFY THE DISK FORMAT 
GET ADDRESS OF MESSAGE 
PRINT 'DONE !' MESSAGE 


; ONCE DATE FLAG 
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SEQ 007', 


154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 


••-DATE-CONVERT USER’S RESPONSE TO BINARY DATE 

THIS ROUTINE WILL CONVERT THE ASCII DATE INPUTTED 
INTO ’SBUFRX’ AS EITHER [MM/DD/YY] OR [DD-MMM-Y Y J AND 
CONVERT IT TO BINARY AND PUT IT IN DATE PARAMETER 
STORAGE AREA. 

INPUTS: 

’SBUFRX’ CONTAINS ASCII STRING FOR DATE 
OUTPUTS: 

DPARS CONTAINS BINARY REPRESENTATION 
OF DATE 


171 000524 

012701 

000154’ 

DATE: 

MOV 

fDPARS.RI 

POINT TO PARAMTER AREA 

172 000530 

012702 

000003 


MOV 

#3.R2 

SET WORD COUNT 

173 000534 

005021 


1$: 

CLR 

(R l ) ♦ 

ZERO NEXT WORD 

174 000536 

005302 



DEC 

R2 

DONE ? 

175 000540 

001375 



BNE 

1$ 

IF NE NO 

176 000542 

012700 

OOOOOOG 


MOV 

#$BUFRX.RO 

GET BUFFER FOR USER’S RESPONSE 

177 000546 

004767 

OOOOOOG 

2$: 

CALL 

SCDTB 

GET A NUMBER 

178 000552 

120227 

000057 


CMPB 

R2.#’/ 

TERMINATOR FOR DATE ? 

179 000556 

001466 



BEQ 

lot 

IF EQ YES 

180 000560 

120227 

000055 


CMPB 

R2.#’- 

POSSIBLY DIFFERENT FORMAT ? 

181 000564 

001404 



BEQ 

3S 

IF EQ YES 

182 000566 

012700 

OOOOOOG 


MOV 

f SMSG2.R0 

NO. SYNTAX ERROR 

183 000572 

000167 

OOOOOOG 


JMP 

SMSGWR 

EXIT WITH WARMING STATUS 

1 o<i 

185 

1 Q JL 



; GET 

DATE FIELD IN FORMAT [DD-HMM-YY] 

IOD 

187 000576 

012705 

000144’ 

3$: 

MOV 

#DATLMT+4.R5 

POINT TO DAY LIMITS 

188 000602 

004767 

000256 


CALL 

thtstl 

TEST LIMITS 

189 000606 

103446 



BCS 

9S 

IF CS ERROR 

190 000610 

010167 

177342 


MOV 

R1 ,DPARS*2 

STORE DAY 

191 000614 

010003 



MOV 

R0.R3 

COPY BUFFER POINTER 

192 000616 

012701 

000056’ 


MOV 

fDAT.RI 

POINT TO VALID MONTH NAMES 

193 000622 

005002 



CLR 

R2 

ZERO month number 

194 000624 

105711 


4$: 

TSTB 

(R1) 

END OF TABLE ? 

195 000626 

001411 



BEQ 

6$ 

IF EQ YES. GOOD MONTH 

196 000630 

122021 



CMPB 

(R01MR1)* 

NO. CHECK NEXT CHARACTER 

197 000632 

001774 



BEQ 

41 

AND LOOP IF GOOD MATCH 

198 000634 

105721 


5$: 

TSTB 

CR1)* 

END OF MONTH STRING ? 

199 C00636 

001376 



BNE 

5S 

IF NE NO. LOOP 

2 00 000640 

010300 



MOV 

R3.R0 

YES. RESET BUFFER POINTER 

201 000642 

005202 



INC 

R2 

UPDATE MONTH INDEX 

202 000644 

105711 



TSTB 

(R1) 

END OF TABLE ? 

203 000646 

001366 



BNE 

4$ 

IF NE NO. LOOP 

204 00065C 

000425 



BR 

9$ 

ZERO IS END OF MONTH LIST 

205 000652 

005202 


6$: 

INC 

R2 

INCREMENT MONTH INDEX 

206 000654 

010267 

177274 


MOV 

R2.DPARS 

SAVE IT 

207 000660 

112002 



MOVB 

C RO ) ♦ ,R2 

GET NEXT CHARACTER 

208 000662 

120227 

000055 


CMPB 

R2.#’- 

legal terminator ? 

209 000666 

001401 



BEQ 

7S 

IF EQ YES 

210 000670 

000415 



BR 

9S 

NO, IT’S A SYNTAX ERROR 



J 
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SEO C07a 


211 000672 

004767 

000000G 7*: CALL 

SCDTB 

YES. GET YEAR 

212 000676 

012705 

000150’ 

MOV 

#DATLMTOO.R5 

GET LIMIT ON YEAR 

213 000702 

004767 

000156 

CALL 

TMTSTL 

TEST LIMIT ON YEAR 

2U 000706 

103406 


BCS 

9$ 

IF CS ERROT 

215 000710 

020127 

000116 

CMP 

R1 ,«BASYR 

CHECK YEAR ENTRY 

216 0007K 

103403 


BLO 

9$ 

IF LO. INVALID YEAR ENTRY 

217 000716 

010167 

177236 8$: MOV 

R1.DPARS*4 

SAVE YEAR 

218 000722 

O00436 


6R 

124 „ 

EXIT 

219 000724 

012700 

000000G 9$: MOV 

#$MSG2,R0 

GEY SYNTAX ERROR MESSAGE 

220 000730 

000167 

000000G 

JMP 

SMSGWR 

EXIT WITH WARNING STATUS 

C C I 

222 

OOT 



GET DATE FIELD IN FORMAT [MM/DD/YY] 

c C. J 

224 000734 

012703 

000154’ 10t: MOV 

#DPARS,R3 

POINT TO DATE STORAGE FIELD 

225 000740 

012705 

000140’ 

MOV 

fDATLMT.RS 

GET POINTER TO MONTH LIMITS 

226 000744 

004767 

000114 11$: CALL 

TMTSTL 

TEST LIMITS 

227 000750 

103765 


BCS 

9$ 

IF CS ERROR, OUT OF BOUNDS 

228 000752 

010123 


MOV 

R1 , < R 3 ) ♦ 

STORE IT 

229 000754 

120227 

000057 

CMPB 

R2,#’/ 

GOOD TERMINATOR ? 

230 000760 

001361 


BNE 

9$ 

IF NE NO, SYNTAX ERROR 

231 000762 

004767 

OOOOOOG 

CALL 

tCDTB 

GET NEXT TWO DIGITS 

232 000766 

004767 

000072 

CALL 

TMTSTL 

TEST LIMITS 

233 000772 

103754 


BCS 

9$ 

IF CS ERROR, OUT OF BOUNDS 

234 000774 

010123 


MOV 

R1 , (R3) ♦ 

STORE IT 

235 000776 

120227 

000057 

CMPB 

R2.#'/ 

GOOD TERMINATOR ? 

236 001002 

001350 


BNE 

9$ 

IF NE NO 

237 001004 

004767 

OOOOOOG 

CALL 

SCDTB 

GET NEXT TWO DIGITS 

238 001010 

004767 

000050 

call 

TMTSTL 

TEST LIMITS 

239 001014 

103743 


BCS 

9$ 

IF CS ERROR. OUT OF BOUNDS 

240 001016 

010113 


MOV 

R1.CR3) 

STORE IT 

241 001020 

012703 

000154* 12$: MOV 

JDPARS.R3 

DATE STORAGE FIELD 

242 001024 

162763 

000116 000004 

SUB 

#BASYR,4(R3) 

SUBTRACT THE STARTING YEAR 

243 001032 

000363 

000004 

SWAB 

4(R3> 

POSITION YEAR IN UPPER BYTE 

244 001036 

006363 

000004 

ASL 

4(R3> 

SHIFT INTO BITS 9-15 

245 001042 

000313 


SWAB 

(R3) 

POSITION MONTH 

246 001044 

006213 


ASR 

(R3) 

SHIFT INTO BITS 5-8 

247 001046 

006213 


ASR 

(R3) 


248 001050 

006213 


ASR 

<R3) 


249 001052 

056313 

000004 

BIS 

4(R3).(R3) 

MERGE YEAR WITH MONTH 

250 001056 

056313 

000002 

BIS 

2(R3).(R3) 

MERGE DAY 

251 001062 

000207 


RETURN 


EXIT 

CJC 

253 



♦ 



254 

occ 



••-TNTSTL - 

TEST DATE LIMITS 


256 



THIS ROUTINE 

WILL TEST THE DATE AGAINST LIMITS SPECIFIED 

257 



BY A TWO WORD LIMIT ENTRY. 


258 






259 



INPUTS: 



260 



R1 = 

CONTAINS VALUE TO BE TESTED 

261 



R5 = 

POINTS TO TWO WORD LIMIT ENTRY 

262 




WORD 1 - LOW LIMIT OF VALUE 

263 




WORD 2 - HIGH LIMIT OF VALUE 

265 



OUTPUTS: 



266 



R1 = 

UNCHANGED 


267 



R5 = 

UPDATED TO NEXT 

LIMIT ENTRY 
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CC = 

GOOD VALUE. 

L0WO 

=X<-H1GH 

269 

270 

271 



CS = 

BAD VALUE. 

LOU>X OR X>H1GH 


• • 





272 

273 001064 

020125 

TMTSTl: 

CMP 

R1 , (R5) ♦ 


IS VALUE lower than low limit 

274 001066 

002404 


BLT 

It 


IF LT YES 

275 001070 

020125 


CMP 

R1 , ( R5 ) ♦ 


IS IT HIGHER THAN HIGH LIMIT 

276 001072 

003002 


BGT 

It 


IF GT YES 

277 001074 

000241 


CLC 



NO. GOO VALUE 

278 001076 

000207 


RETURN 



EXIT 

279 001100 

000261 

1$: 

SEC 



SET ERROR FLAG 

280 001102 
281 

000207 


RETURN 



EXIT 

282 

000001 

.END 
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SYMBOL TABLE 


BASYR = 000116 & MSG2R8 000032R SMSG12= •••••• GX 

CR = 000015 TMTSTL 001064R SMSG2 = ****** GX 
DAT 000056R SBUF = *•**•* GX $MSG23= *•••** GX 
DATE 000524R SBUrRX= •***•* GX SMSG?4= ****** GX 
DATLMT 000140R SCDTB = ****** GX $MSG31= ****** GX 
DPARS 000154RG SMOVt = •**••• GX $PRINT= ****** GX 
LF = 000012 $MSGR8= **•**• GX $PRMPT= ****** GX 
MSG1R8 OOOOOOR SMSGV 1 = ••*••• GX $RDBSF= ****** GX 


. ABS. 000000 000 

001104 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 456 WORDS ( 2 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 
ELAPSED TIME; 00:00:11 

E 300 . 20] F MT R80 . C 300 . 303F MTR80= C 300 . 1 03FMTP80 
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SCO 0076 


SRDSSF = •••*•• GX SSNAME- ****** GX 
SREVNM= *••*•* GX SSSF = ••*••• GX 
SRM80 000162RG SSWFMTs •••••• GX 

SRM80F = *••*** GX SSWINT = *••*** GX 
$RM80I= ****** GX SSWLST= ****** GX 
$RM80L= ****** GX $SWMOD= ••***• GX 
$RM80M= ****** GX tUNT ID S ****** GX 
$RM80V= **•**• GX .DD2CT= ***.*. GX 
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M 6 


SEQ 00^ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 000000 

34 000032 

35 000054 

36 000077 

37 000106 

38 000115 

39 000124 

40 000133 

41 000141 

42 000173 

43 000222 

44 

45 

46 

47 

48 

49 


.TITLE FMTR8F - RM80 FORMAT MODULE 
. IDENT 702.00/ 


COPY 0 i GHT (C) 1980,1982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT UHlCH IS NOT SUPPLIED BY DIGITAL. 


VERSION 02.00 

C. HESS 17- AUG-80 

M. LEAVITT 02-JUL-82 


. NL 1ST BEX 


104 

122 

111 

MSG50R 

. AS C I Z 

/DRIVE ERROR DURING FORMAT/ 

106 

117 

122 

MSG51R 

.AS C 1 Z 

/FORMAT CONTINUING/ 

106 

117 

122 

HSG53R 

.ASC1Z 

/FORMAT TERMINATING/ 

122 

115 

103 

MSG61R 

.ASCIZ 

/RMCS1 =/ 

122 

115 

103 

MSG62R 

.ASCJZ 

/RMCS2=/ 

122 

115 

105 

MSG63R 

.ASCIZ 

/RMERW 

122 

115 

105 

MSG64R 

.ASCIZ 

/RMER2=/ 

122 

115 

104 

MSG65R 

.ASCIZ 

/RMDA=/ 

124 

122 

101 

MSG66R 

.ASCIZ 

/TRACK RE-WRITE SUCCESSFUL/ 

124 

122 

101 

MSG67R 

.ASCIZ 

/TRACK RE-WRITE FAILURE/ 

123 

125 

103 

MSG68R 

.ASCIZ 

/SUCCESSIVE SEEK ERRORS/ 


EVEN 

WORKING LOCATIONS 


50 000252 000000 

51 000254 000000 

52 000256 000000 

53 000260 000000 

54 000262 000000 

55 000264 000000 

56 


SERCS1 : 

.WORD 

0 

; CONTROL STATUS REG 1 

JERCS2: 

.WORD 

0 

; STATUS REG 2 

SERER1 : 

.WORD 

0 

; ERROR REGISTER 1 

SERER2: 

.WORD 

0 

; ERROR REGISTER 2 

SERDA: 

.WORD 

0 

; TRACK/SECTOR ADDRESS 

tFLBUF: 

.WORD 

0 

; BUFFER ADDRESS 
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N 6 


SEQ 0078 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 000266 

81 000274 

82 000302 

83 000306 

84 000314 

85 000320 

86 000324 

87 

88 

89 

90 000330 

91 000334 

92 

93 

94 


012767 

001056 

OOOOOOG SR80SF::MOV 

#558. -SCYL 

012767 

000015 

OOOOOOG 

MOV 

#l3.,iTRK 

004767 

000212 


CALL 

FMTDSK 

012767 

001057 

OOOOOOG 

MOV 

#559. .SCYL 

005067 

OOOOOOG 


CLR 

STRK 

004767 

000174 


CALL 

FMTDSK 

005267 

OOOOOOG 


INC 

$TRK 




; FORMAT A SINGLE TRACK 

004767 

OOOOOOG 


SR80TF : :CALL 

SHVPAT 

000471 



BR 

FMTDSK 


**-SR80TF -FORMAT A SINGLE TRACK 

**-SR80SF -FORMAT BSF , SSF AND ALTERNATE DE Cl 44 CYLINDERS 
* *-SRM80F -F ORMAT ALL CYLINDERS OR FE cylinders 

THIS ROUTINE WILL FORMAT AN RM80 DISK PACK. FULL TRACKS 
(32. SECTORS) OF HEADERS ARE WRITTEN UNTIL THE MAXIMUM 
DISK ADDRESS IS REACHED. 

INPUTS: 

DISK PARAMETERS SET TO ZERO 

MDBSF. UDBSF . & SSF READ. VALIDATED, AND IN MEMORY 
SCYL.tTRK.SSEC PRESET FOR ' SR80TF • ENTRY 
FORMAT FE CYLINDERS ONLY IF 'SSWFFE=1' 

OUTPUTS: 

NONE. 

FORMAT BSF (558. ,13. ) , SSF (559. .0) AND ALTERNATE DECH4C559. , 1 ) TRACKS 

STARTING CYLINDER 
'• TRACK 

FORMAT THE DEC STD 144 TRACK 
STARTING CYLINDER 
” TRACK 

FORMAT THE SSF TRACK 
FORMAT THE ALTERNATE DEC144 TRACK 


LOAD THE DATA PATTERN 
FORMAT THE TRACK SCYL.STRK 


(558. ,13. 


95 

96 000336 

005001 



SRM80F : 

:CLR 

R1 

97 000340 

012700 

OOOOOOG 



MOV 

#$MSG6,R0 

98 000344 

004767 

OOOOOOG 



CALL 

5PRNT0 

99 000350 

005001 




CLR 

R1 

100 000352 

105767 

OOOOOOG 



TSTB 

5SWFFE 

101 000356 

001011 




BNE 

IS 

102 000360 

012700 

OOOOOOG 



MOV 

#$MSG6A.R0 

103 000364 

004767 

OOOOOOG 



CALL 

SPRNTO 

104 000370 

005067 

OOOOOOG 



CLR 

SCYL 

105 000374 

005067 

OOOOOOG 



CLR 

STRK 

106 000400 

107 

108 000402 

000412 




BR 

2S 

012700 

OOOOOOG 


1$: 

MOV 

#SMSG6B.R0 

109 000406 

004767 

OOOOOOG 



CALL 

SPRNTO 

110 000412 

012767 

001056 

OOOOOOG 


MOV 

#558. .SCYL 
#13.,iTRK 

111 000420 

012767 

00001 5 

OOOOOOG 


MOV 

112 000426 

004767 

OOOOOOG 


2$: 

CALL 

SMVPAT 

113 000432 

004767 

000062 


35: 

CALL 

FMTDSK 

114 000436 

004767 

OOOOOOG 



CALL 

STSTMX 


FORMAT ALL CYLINDERS (0.0 TO 560., 13.) OR BSF/SSF/FE CYLINDERS 

SET NULL CARRIAGE CONTROL 
TELL OPERATOR 
•START FORMATTING* 

SET NULL CARRIAGE CONTROL 
FORMAT FE CYLINDERS ONLY ? 

BR IF YES 

TELL OPERATOR WHICH CYLINDERS 
' -ALL CYLINDERS- * 

START CYLINDERS 
START TRACK=0 
FORMAT THE TRACKS 

TELL OPERATOR WHICH CYLINDERS 
’ -FE CYLINDERS- * 

START CYL1NDER=558. (BSF/SSF/FE CYLINDERS) 
START TRACK=13. 

LOAD THE DATA PATTERN 
FORMAT THE DISK 
UPDATE DISK ADDRESSES 


560. .13.) 
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*15 000442 

103001 


116 000444 

000207 


117 



118 000446 

022767 

001057 OOOOOOG 

119 000454 

001366 


120 000456 

022767 

000002 OOOOOOG 

121 000464 

001362 


122 000466 

016746 

OOOOOOG 

123 000472 

016746 

OOOOOOG 

124 00047o 

004767 

OOOOOOG 

125 000502 

0C4767 

OOOOOOG 

126 000506 

012667 

OOOOOOG 

127 000512 

012667 

OOOOOOG 

128 000516 

000745 


129 



130 



131 



132 000520 

012703 

OOOOOOG 

133 000524 

004767 

OOOOOOG 

134 000530 

005067 

OOOOOOG 

135 000534 

012700 

OOOOOOG 

136 



137 



138 



139 000540 

004767 

OOOOOOG 

HO 000544 

005267 

OOOOOOG 

141 000550 

026767 

OOOOOOG OOOOOOG 

142 000556 

001370 


143 000560 

005067 

OOOOOOG 

144 



145 

1 Li* 



1 MU 

147 000564 

016767 

OOOOOOG OOOOOOG 

148 000572 

004767 

OOOOOOG 

149 000576 

012705 

OOOOOOG 

150 000602 

004767 

OOOOOOG 

151 000606 

005767 

OOOOOOG 

152 000612 

100401 


153 000614 

000207 


154 



155 



156 



157 000616 

033767 

004000 00001 4G 

153 000624 

001402 


1 59 000626 

000167 

OOOOOOG 

160 



161 



iOc 

163 000632 

004767 

000276 

164 000636 

012700 

000000* 

165 000642 

012701 

000060 

166 000646 

004767 

OOOOOOG 

167 000652 

004767 

000064 

168 000656 

105367 

OOOOOOG 

169 000662 

001014 


170 000664 

012700 

OOOOOOG 

171 000670 

012701 

000060 


BCC 

4$ 

RETURN 


4$: CMP 

#559. ,$CYL 

BNE 

3S 

CMP 

#2.STRk 

BNE 

3$ 

MOV 

SCYL.-(SP) 

MOV 

STRK.-(SP) 

CALL 

SWTSSF 

CALL 

$WTBSF 

MOV 

(SP)*,$TRK 

MOV 

< SP) ♦ ,$CYL 

BR 

3$ 

; ACTUAL FORMAT 

routine 

FMTDSK : MOV 

#$PHYDV.R3 

CALL 

SUPDMX 

CLR 

SSEC 

MOV 

#$8UF.R0 


; CREATE THE HEADER PATTERN 


1$: 

CALL 

GENHDR 


INC 

$SEC 


CMP 

tSEC .SMXSEC 


BNE 

1$ 


CLR 

SSEC 

; NOW 

WRITE THE 

HEADER AND DATA 

2S: 

MOV 

TRKSZ.JXFRSZ 


CALL 

SCVTDA 


MOV 

#$0UF ,R5 

3$: 

CALL 

SDSKWH 

4$ ■ 

TST 

SRGBU" 


BMI 

RETURN 

5$ 

; HANDLE THE ERROR 

5$: 

BIT 

#4000.SRGBUF*14 


BEQ 

6S 


JMP 

SWLKER 

; SEND 

ERROR MESSAGE 

6$: 

CALL 

SFLRGS 

MOV 

#MSG50R,R0 


MOV 

#60. R1 


CALL 

SPRNTO 


CALL 

tMGPRF 


DECB 

SSWERL 


BNE 

7$ 


MOV 

#$MSG45.R0 


MOV 

#60. R1 


; IF CS. NOT f 1NSIHED, ELSE 
; EXIT FORMAT 

; WAS SSF JUST WRITTEN ? 

. gR I F NO 

; WERE BSf/SSF TRACKS JUST WRITTEN 

. op ic tin pi cc 

; SAVE CUR&ENT'cylINDER ADDRESS 
; SAVE CURRENT TRAC; ADDRESS 
; RE-WRITE THE SSF 
; RE-WRITE ALL THE DECK* TRACKS 
; RESTORE TRACK ADDRESS 
; RESTORE CYLINDER ADDRESS 
; WRITE NEXT TRACK 


•FORMAT' DEVICE PARAMETERS 
UPDATE THE MAX VALUES 
START AT SECTOR ZERO 
RELOAD THE BUFFER ADDRESS 


; GENERATE HEADER PATTERN 
; UPDATE SECTOR NUMBER 
; ALL SECTORS DONE? 

; IF NE NO 

; RESET SECTOR NUMBER 
ONTO THE DISK. 

; LOAD BYTE COUNT FOR ONE TRACK 
; CONVERT DISK ADDRESS TO LBN 
; SET BUFFER ADDRESS 
; WRITE HEADER/DATA FOR THIS TRACK 
; ANY DISK ERRORS? 

; IF HI, YES 
; OTHERWISE. RETURN 


WRITE LOCK ERROR? 
IF EQ NO 
INFORM THE USER 


SAVE FAILING DATA 
•DRIVE ERROR DURING FORMAT* 
CARRIAGE CONTROL CHARACTER 
SEND MESSAGE 
SEND DISK ADDRESSES 
DECREMENT THE ERROR LIMIT 
IF NE. ERROR LIMIT NOT EXCEEDED 
•ERRofi LIMIT EXCEEDED* 

CARRIAGE CONTROL CHARACTER 
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C 1 


EO 0080 


172 

000674 

004767 

OOOOOOG 

000054’ 

call 

SPRNTO 

SEND MESSAGE 
'FORMAT TERMINATING’ 

173 

000700 

012700 

MOV 

#MSG53R,R0 

174 

000704 

004767 

GOOOOOG 

CALL 

SPRINT 

PRINT THE MESSAGE 

175 

1/6 

177 

178 

179 

000710 

000167 

OOOOOOG 

JMP 

SFMTEX 

EXIT THE FORMATTER 



; IF 

THE ERROR 

IS A ’SKI’. DO A RECAL 

000714 

012700 

000032’ 7S: 

MCV 

#MSG51R,R0 

•FORMAT CONTINUING* 

180 

000720 

004767 

OOOOOOG 

CALL 

SPRINT 

SEND MESSAGE 

181 

000724 

032767 

040000 000042G 

BIT 

#40000, SRGBUF *42 

; SEE IF ERROR 

182 

00073*. 

001714 


8EQ 

2S 

IF EO. NO 

183 

000734 

004767 

OOOOOOG 

CALL 

SHOMSK 

ENTRY POINT FOR RETRY 

184 

000740 

000711 


BR 

a 

TRY AGAIN 


A SEEK INCOMPLETE 


185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 000742 

197 000746 

198 000752 

199 000756 

200 000762 

201 000766 

202 000772 

203 000776 

204 001002 

205 001006 

206 001012 

207 001016 

208 001022 

209 001026 

210 001032 

211 001036 

212 001042 

213 001046 

214 001052 

215 

216 

217 

218 001056 

219 001062 

220 001066 

221 001072 

222 001076 

223 001102 

224 001106 

225 001112 

226 001116 

227 001122 

228 001126 


••-SMGPRE -PREPARE AND SEND DISK ADDRESSES TO OPERATOR 
INPUTS: 

SFLCYL.SFLTRK.SFLSEC LOADED 

OUTPUTS: 

ERROR MESSAGE 


012700 

OOOOOOG 

SMGPRE:: MOV 

fSCR.RO 

ADDRESS OF MESSAGE 

004767 

OOOOOOG 

CALL 

SPRINT 

CR-LF 

016701 

177274 

MOV 

SERCS1.R1 

#MSG61R,R3 

GET RMCS1 AND 

012703 

000077’ 

MOV 

ADDRESS OF MESSAGE 
"RMSC1 = XXXXX” 

004767 

OOOOOOG 

CALL 

SEROCT 

016701 

177262 

MOV 

SERCS2.R1 

GET RMCS2 AND 

012703 

000106* 

MOV 

#MSG62R,R3 

ADDRESS OF MESSAGE 

004767 

OOOOOOG 

CALL 

SEROCT 

"RMSC2 = XXXXX” 

016701 

177250 

MOV 

SERER1.R1 

GET RMER1 AND 

012703 

000115’ 

MOV 

#MSG63R,R3 

ADDRESS OF MESSAGE 

004767 

OOOOOOG 

CALL 

SEROCT 

"RMER1 = XXXXX" 

016701 

177236 

MOV 

SERER2.R1 

GET RMER2 AND 

012703 

000124’ 

MOV 

#MSG64R,R3 

ADDRESS OF MESSAGE 
"PMER2 = XXXXX" 

004767 

OOOOOOG 

CALL 

SEROCT 

016701 

177224 

MOV 

SERDA.R1 

GET RMDA AND 

012703 

000133’ 

MOV 

fMSG65R.R3 

ADDRESS OF MESSAGE 
"RMDA - XXXXX" 

004767 

OOOOOOG 

CALL 

SEROCT 

012700 

OOOOOOG 

MOV 

#SCR,RO 

ADDRESS OF MESSAGE 

004767 

OOOOOOG 

CALL 

.•PRINT ERROR 

SPRINT 

POSITION. CYLINDER. 

CR-LF 

TRACK AND SECTOR IN DECIMAL 

016701 


MOV 

SfLCYL.RI 

GET FAILING CYLINDER AND 

012703 


MOV 

#SHSG15.R3 

ADDRESS OF MESSAGE 

004767 


CALL 

SI ROUT 

"CYLINDER = XXX." 

016701 

OOOOOOG 

MOV 

SFLTRK.R1 

f$HSGl6.R3 

GET FAILING TRACK AND 

012703 


MOV 

ADDRESS OF MESSAGE 

004767 


CALL 

SEROUT 

"TRACK r XX." 

016701 

|mmi itr»!8i 

MOV 

SFLSEC.R1 

GET FAILING SECTOR AND 

012703 


MOV 

#SHSG1/,R3 

ADDRESS OF MESSAGE 

004767 


CALL 

SEROUT 

"SECTOR = XX." 

012700 

OOOOOOG 

MOV 

fSCR.RO 

GET ADDRESS OF MESSAGE 

0047o7 

OOOOOOG 

CALL 

SPRINT 

CR-LF 
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D 7 


SEO 0081 


229 001132 

000207 



RETURN 




230 








231 




♦ 




232 




••-sflrgs-routine to save failing disk addresses and registers 

233 








234 




INPUTS: 




235 




scyl. strk set to current 

cylinder AND TRACK 


236 




SRGBUF 

CONTAINS IMAGE OF 

latest H/U REGS (SET BY 

DRIVER) 

237 








238 




OUTPUTS: 




239 




SERCS1 

- CONTROL STATUS REG 1 


24 0 




SERCS2 

- CONTROL STATUS REG 2 


241 




SERER1 

- ERROR REG 1 



242 




SERER2 

- ERROR REG 2 



243 




SERDA 

- TRK/SECTOR REG 



244 




SFLCYL 

- FAILING CYLINDER 


245 




sfltrk 

- failing track 



246 




sflsec 

- FAILING SECTOR 



247 




- 




248 








249 001134 

016705 

000G06G 

SFLRGS: :MOV 

SRGBUF *6^5 

RECOVER FAILING SECTOR 

ADDRESS 

250 001140 

042705 

177740 


BIC 

#1 77740, R5 

ISOLATE SECTOR NO. 


251 001144 

001004 



BNE 

IS 



252 001146 

012767 

000037 

OOOOOOG 

MOV 

#31., SFLSEC 

MUST HAVE BEEN LAST SECTOR 

253 001154 

000403 



BR 

2S 



254 001156 

005305 


IS: DEC 

R5 

BACKUP ONE 


255 001160 

010567 

000000G 


MOV 

R5, SFLSEC 

SET SECTOR NUMBER 


256 001164 

016767 

COOOOOG 

OOOOOOG 21: MOV 

SCYL. SFLCYL 

" CYLINDER 


257 001172 

016767 

0000006 0000006 

MOV 

STRK. SFLTRK 

“ TRACK 


cjO 

259 



i 

SAVE THE RM80 REGISTERS 



£OU 

261 G01200 

012705 

OOOOOOG 


MOV 

fSRGBUF ,R5 

REGISTER BUFFER 


26 2 001204 

011567 

177042 


MOV 

(R51.SERCS1 

RMCS1 


263 001210 

016567 

000010 

177036 

MOV 

10(R$) .SERCS2 

RMCS2 


264 001216 

016567 

000014 

177032 

MOV 

14CR5) .SERER1 

RMER1 


265 001224 

016567 

000042 

177026 

MOV 

42CR51.SERER2 

RMER2 


266 001232 

016567 

000006 

177022 

MOV 

6(R5>, SERDA 

RMDA 


267 001240 

005067 

OOOOOOG 


CLR 

SRGBUF 

CLEAR ERROR INDICATOR 


268 001244 

000207 



RETURN 




269 








270 

000001 



.END 
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SYMBOL TABLE 

FMTDSK 000520R MSG68R 000222R SEROCT= ••••». GX 

GENHDR= ****** GX TRKSZ = ****** GX SEROUT= ****** GX 

MSGSOR OOOOOOR SBUF = ****** GX SF18UF 000264R 

MSG51R 000032R SCR = ****** GX SFLCYL= ****** GX 

MSG53R 000054R SCVTDA= ****** GX SFLRGS 001134RS 

MSG61R 000077R SCYL = ****** GX SFLSEC= ****** GX 

MSG62R 000106R SDSKWHs ****** GX SFLTRKs ****** GX 

MSG63R 000115R SERCS1 000252R SFMTEX= ****** GX 

MSG64R 0001 24R SERCS2 000254R SHOMSKs ****** GX 

MSG65R 0001 33R SERDA 000262R SMGPRE 000742RG 

MSG66R 0001 41 R SERERl 000256R SMSG15= ****** GX 

MSG67R 0001 73R SERER2 000260R SMSG16= ****** GX 

. ABS. 000000 000 

001246 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 517 WORDS ( 3 PAGES) 

DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 

ELAPSED TIME: 00:00:11 

C300.20]FMTR8F.C300.30]FM t R8F=C300.103FMTR8F 


7 


SEQ 008? 


SMSG1 7= ...... GX SR80SF 000266RG 

SMSG45= ...... GX SR80TF 000330RG 

SMSG6 = »•*.*• GX SSEC = ...... GX 


SMSG6A= GX SSWERL= *.“** GX 

SMSG6B- ***..* GX SSWF FE= .****• GX 

SMVPAT= ***.*• GX ST j <K = *.*•»* GX 

SMXSEC= **..** GX STSTMX= **•**. GX 

SPHYDV- ****** GX $UPDMX= ...... GX 

SPRINT= ...... GX SWLKER= ...... GX 

SPRNTO= ...... GX SwTBSF = ****** GX 

SRGBUF = ****** GX SUTSSFs ...... GX 

SRM80F 000336RG SxFRSZ= ...... GX 
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F 7 


SEG 0085 


1 

2 

5 

A 

5 

6 

7 

8 
9 

10 

11 

1? 

13 

K 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


.TITLE FMTR8V - VERIFY RM80 DISKS 
IDENT 702.00/ 


COPYRIGHT (C) 1980.1982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 02.00 

C. HESS 
M. LEAVHT 


22-AUG-80 

07-JUL-82 


31 




. NL 1ST 

BEX 

32 

33 000000 

126 

105 

122 

MS62V: 

.ASCI 2 

34 000023 

116 

117 

116 

MSG3V: 

.ASC1Z 

35 000060 

126 

105 

122 

MSG4V: 

• ASC I 2 

36 000102 

110 

105 

101 

MSG5V: 

. ASC 1 2 

37 




.EVEN 



/VERIFY TERMINATING/ 

/NON DATA ERROR DURING VERIFY/ 
/VERIFY CONTINUING/ 

BHEADER/DATA ERROR DURING VERIFVB 


38 

39 


40 


: WORKING LOCATIONS 

41 

42 

43 0301 42 

000000 

f 

TRKER: .WORD 

0 

44 000144 


SECTBL: .BLK8 

32. 

45 000204 

000000 

LASTER: .WORD 

0 

46 

47 000206 

000000 

XFRSEC : .WORD 

0 

48 000210 

000000 

ENDSEC: .WORD 

0 

49 000212 

000000 

BEGSEC: .WORD 

0 

50 000214 

000000 

VFYCNT: .WORD 

0 


TRACK ERROR COUNT 
SECTOR ERROR TABLE 

LAST SECTOR IN ERROR DURING CURRENT VERIFICATION 
PASS 

NUMBER OF SECTORS ACTUALLY VERIFIED 
ENDING SECTOR ADDRESS 
STARTING SECTOR ADDRESS 
VERIFICATION PASSES 


51 
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SEQ 0084 


53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 000216 

88 000222 

89 000226 

90 000232 

91 000236 

92 

93 000242 

94 000246 

95 000250 

96 000254 

97 000260 

98 000262 

99 000270 
100 

101 000276 

102 000302 

103 000306 

104 000312 

105 000320 

106 000324 

107 

108 000330 

109 000336 


**-SR»80V-VERIF I CAT ION R0U1INE FOR RM8Q DISK PACKS 
TRACK COMPLETE <= 1 

REPEAT PROCESS UNTIL PHYSICAL DISK ADDRESS .EQ. (561.0,0) (STSIMX) 

IF TRACK COMPLETE .NE. 0 
THEN START SECTOR <= 0 
END SECTOR <= SMXSEC 
TRACK ERROR COUNT ( ' TRKER' ) <= 0 
CLEAR SECTOR ERROR TABLE 
GENERATE TRACK BUFFER 

WORD COUNT <= ((END SECTOR)-(START SECTOR) *1 ) *258 
VERIFICATION PASS COUNT ( ' VF YCNT ' ) <= SVERIF 

REPEAT WRITE CHECK UNTIL < * VF YCNT * .EQ. 0 .OR. SECTORS TRANSFERED .EQ. 0) 
IF ERROR 

THEN CALL SCKERR 

IF ERROR IS A NON DATA ERROR 
THEN RETRY ERROR 
* VF YCNT * s * VF YCNT ' - 1 
ENDREPEAT 
IF TRKER .NE. 0 

THEN CALL 'VFYSEC* 

REGENERATE THE TRACK BUFFER (GENHOR) 

RE-FORMAT TRACK FROM SECTOR 0 TO SECTOR 31 
IF ENDSEC .NE. 31 

THEN START SECTOR <= LAST ERROR SECTOR ♦ 1 
END SECTOR <= 31 

ELSE PHYSICAL ADDRESS s PHYSICAL ADDRESS ♦ 32 SECTORS 

ENDREPEAT 

RE-WRITE BSF & SSF 
EOJ 


01 2700 
004767 
012703 
004767 
004767 

105767 

001005 

005067 

005067 

000406 

012767 

012767 

005067 

005067 

005067 

016767 

005367 

004767 

026727 

001016 


OOOOOOG 


SRM80V::M0V 

#SMSG1 1 ,R0 

; GET VERIFICATION STARTING MESSAGE 

OOOOOOG 


CALL 

SPRINT 

; PRINT THE MESSAGE 

OOOOOOG 


MOV 

#SPHYDV.R3 

; PHYSICAL DEVICE GEOMETRY POINTER 

OOOOOOG 


CALL 

SUPDMX 

; UPDATE THE LIMITS 

OOOOOOG 


CALL 

SHOHSK 

; ISSUE A RE CAL 

OOOOOOG 


TSTB 

SSWFFE 

; VERIFY FE CYLINDERS ONLY ? 



BNE 

1$ 

; BR IF YES 

OOOOOOG 


CLR 

SCYL 

; STARTING CYLINDERS 

OOOOOOG 


Cl R 

STRX 

; STARTING TRACK=0 



BR 

2S 


001056 

OOOOOOG 

1$: MOV 

#558. -SCYL 

; STARTING CVLINDER = 558. 

000015 

OOOOOOG 

MOV 

#13.,4trk 

; STARTING TRACK=13. 

177710 


2$: CLR 

BEGSEC 

; START WITH SECTOR 0 

177634 


CLR 

TRKER 

; CLEAR THE TRACK ERROR COUNT 

177672 


CLR 

LASTER 

; CLEAR LAST ERRORRED SECTOR 

OOOOOOG 

177670 

MOV 

SMXSEC. ENDSEC 

; LOAD THE ENDING SECTOR ADDRESS 

177664 


DEC 

ENDSEC 

; CORRECT THE VALUE 

OOOOOOG 


CALL 

SMVPAT 

; LOAD THE DATA PATTERN 

OOOOOOG 001056 

3$: CMP 

SCYL. #558. 

; IS THIS THE BSF CYLINDER ADDRESS ? 



BNE 

4S 

; BR IF NO 
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110 

000340 

026727 

OOOOOOG 000015 

CMP 

STRK,#13. 

111 

000346 

001012 


BNE 

4S 

112 

000350 

016746 

OOOOOOG 

MOV 

SC YL .- CSP) 

115 

000354 

016746 

OOOOOOG 

MOV 

$TRK.-(SP) 

IK 

000360 

004767 

OOOOOOG 

CALL 

SR80SF 

115 

000364 

012667 

OOOOOOG 

MOV 

(SP> ♦ .STRIC 

116 

117 

000370 

012667 

OOOOOOG 

MOV 

( SP> ♦ .SCYL 


118 000374 

012701 

000020 

000144* 


4$: 

119 000400 

012700 



120 G00404 

005020 



51: 

121 000406 

005301 




122 000410 

123 

001375 




124 000412 

116767 

OOOOOOG 

177574 


125 000420 

016767 

177566 

OOOOOOG 

6$: 

126 000426 

012700 

OOOOOOG 



127 000432 

004767 

OOOOOOG 


71: 

128 000436 

005267 

OOOOOOG 



129 000442 

026767 

OOOOOOG 

177540 


130 0004 5G 

131 

101770 





132 000452 016767 177534 OOOOOOG 8$: 

133 000460 016700 177524 

134 000464 166700 177522 

135 000470 005200 

136 000472 012701 001004 

137 000476 004767 OOOOOOG 

138 000502 010167 OOOOOOG 


139 000506 004767 0 

•Tjj 

• 

ill 

140 000512 105067 0 

jjft 

h 

»•? 

141 000516 012705 0 

>y > 

• i 

» i s 

142 000522 004767 0 

m 

M 

lit 

143 000526 005767 0 

w. 

li 

i i r 


144 000532 100404 

145 000534 005367 177454 

146 000540 001364 

147 000542 000420 

148 


MOV #16. ,R1 

MOV #SECTBL.RO 

CLR ( RO) ♦ 

DEC R1 


M0V8 $VER1F ,VF YCNT 

MOV BEGSEC .SSEC 

MOV #$BUF,RO 

CALL GENHDR 

INC SSEC 

CMP SSEC.ENDSEC 

BLOS 7$ 

MOV BEGSEC. SSEC 

MOV ENDSEC.RO 

SUB BEGSEC.RO 

INC RO 

MOV #258.*2.,R1 

CALL SMULT 

MOV R1,$XFRSZ 

CALL SCVTDA 

CLRB SWDRFG 

MOV #SBUF ,R5 

CALL SDSKUC 

TST SRGBUF 

6M1 10S 

DEC VFTCNT 

BNE 9S 

BR IPS 


149 ; PROCESS THE ERROR 

150 


151 000544 

004767 

000326 

10$: 

CALL 

CKERR 

152 000550 

103740 



BCS 

8$ 

153 000552 

005767 

177430 


TST 

XFRSEC 

154 000556 

001404 



BEQ 

11$ 

155 000560 

005367 

177430 


DEC 

VFYCNT 

156 000564 

001315 



BNE 

6$ 

157 000566 

000406 



BR 

12$ 

158 000570 

016746 

177416 

11$: 

MOV 

BEGSEC, -(SP) 

159 000574 

005216 



INC 

(SP) 

160 000576 

026726 

OOOOOOG 


CMP 

$MXSEC.(SP)» 

161 






162 000602 

001306 



BNE 

6$ 

163 000604 

005767 

177332 

12$: 

TST 

TRKER 

16* 000610 

001404 



BEQ 

13$ 

165 000612 

004767 

000106 


CALL 

VFYSEC 

166 000616 

004767 

OOOOOOG 


CALL 

$R80TF 


SEO 0085 


IS THIS THE BSF TRACK ADDRESS ? 

BR IF NO 

SAVE CURRENT CYLINDER ADDRESS 
SAVE CURRENT TRACK ADDRESS 
RE-FORMAT BSF/SSF HEADERS AND DATA 
RESTORE TRACK ADDRESS 
RESTORE CYLINDER ADDRESS* 

LOOP CONSTANT 
TABLE ADDRESS 
CLEAR TWO LOCATIONS 
DECREMENT THE LOOP COUNTER 
IF NE, NOT FINISHED 

LOAD THE VERI r ICATION COUNT 
LOAD THE SECTOR ADDRESS 
BUFFER ADDRESS 

GENERATE A HEADER FOR WRITE CHECK HEADER l DATA 
INCREMENT THE SECTOR 
SEE IF FINISHED 
IF LOS, NO 

RESET THE BEGINNING SECTOR ADDRESS 
ENDING SECTOR ADDRESS 
SUBTRACT STARTING ADDRESS 
CALCULATE # OF SECTORS TO XFER 
GET ONE SECTOR SIZE (IN BYTES) 

CALCULATE THE BYTE COUNT 
LOAD THE BYTE COUNT 
CONVERT DISK ADDRESS TO AN LBN 
CLEAR HEADER ERROR FLAG 
BUFFER ADDRESS 

DO WRITE CHECK HEADER 8 DATA 
SEE IF ANY ERRORS ? 

IF MI. YES 

DONE VERIFY PASS ? 

IF NE, NO FINISHED 

SEE IF FINSIHED WITH THIS TRACK 


SEE WHICH TYPE OF ERROR IT IS 
IF CS. NON-DATA ERROR - RETRY 
SEE IF ANY SECTORS WERE TRANSFERED 
IF EO NO 

DECREMENT THE VERIFICATION COUNT FOR THIS PASS 
IF NE. MORE TO Do 

SEE IF FINISHED WITH THE CURRENT TRACK 
SEE IF THE ERROR IS THE LAST SFCTOR 
CORRECT VALUE FOR THE COMPARE 
ERROR ON SINGLE SECTOR TRANSFER BEGINNING 
WITH SECTOR 31 ? 

IF NE. NO 

ANY NEW ERRORS ON THIS TRACK ? 

IF EQ. NO 

VERIFY THE SECTORS IN ERROR 

REFORMAT THE TRACK AND MARK NEW DEFECTS 
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167 000622 

016700 

177362 


13$: 

MOV 

ENDSEC.RO 

168 000626 

005200 




INC 

RO 

169 000630 

020067 

OOOOOOG 



CMP 

RO.SMXSEC 

14i 

170 000634 

001421 




BEO 

171 000636 

016700 

177342 



MOV 

laster.ro 

172 000642 

005200 




INC 

RO 

175 000644 

020067 

OOOOOOG 



CMP 

RO.SHXSEC 

14i 

174 000650 

001413 




BEQ 

175 000652 

016767 

177326 

177332 


MOV 

LASTER. BEGSEC 

176 000660 

005267 

177326 



INC 

BEGSEC 

177 000664 

016767 

OOOOOOG 

177316 


MOV 

SMXSEC .ENDSEC 

178 000672 

005367 

177312 



DEC 

ENDSEC 

179 000676 

180 

000636 




BR 

4$ 

181 000700 

004767 

OOOOOOG 


14$: 

CALL 

STSTMX 

182 000704 

103402 




BCS 

15$ 

183 000706 

184 

000167 

177364 



JMP 

2$ 

185 000712 

004767 

OOOOOOG 


15$: 

call 

$WTSSf 

186 000716 

004767 

OOOOOOG 



CALL 

$WTBSF 

187 000722 

000207 




RETURN 



1 7 


188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


CHECK THE ENDING SECTOR 
CORRECT IT 
SEE If FINSIHED 
If EQ. *ES 

GET THE LAST ERROR SECTOR ADDRESS 
CORPECT VALUE 
SEE If AT MAX SECTOR 
If EQ, YES 

RElOAD THE starting sector 
START WITH THE fIRST GOOD SECTOR 
RELOAD THE ENDING SECTOR 
CORHECT THE VALUE 
CONTINUE 

INCREMENT THE PHYSICAL ADDRESS 
If CS, fJNlSHED 
TEST NEXT TRACK 

RE-WRITE THE SSf 

RE-WRITE ALL THE DEC STD 144 TRACKS 


VFYSEC— VERIFY THE SECTOR(S) IN ERROR 

THIS ROUTINE WILL RE-READ THE SECTORS WHICH GAVE ERRORS DURING THE VERIfY 
PASS ON THE CURRENT TRACK. ANY SECTOR f AILING DURING THE RE-READ PASS 
WILL BE CONSIDERED DEFECTIVE. 

REPEAT PROCESS UNTIL TRACK ERROR COUNT ( ' TRKER' ) .EQ. 0 
FIND NEXT SECTOR IN SECTOR ERROR TABLE ('SECTBL') 

REPEAT WRITE CHECK FOR SECTOR ENTRY IN 'SECTBL' 

UNTIL ( * SECTBL' (SECTOR) .LT. 0) .OR. (HEADER FIELD OR DATA FIELD ERROR fOR 
IF 'SECTBL' (SECTOR) .GE. 0 

THEN IF NO SKIP SECTOR ON TRACK .AND. *$HDRFG' = 0 
THEN PUT SECTOR IN SSF 
ELSE IF SECTOR IS NOT IN THE FE CYLINDERS 
THEN PUT SECTOR IN FEBSF 
ELSE PUT SECTOR IN UDBSF 

LAST ERROR SECTOR ON TRACK 'LASTER* <= CURRENT ERROR SECTOR 
TRKER = TRKER - 1 
ENDREPEAT 

INPUTS: 

SECTBL - CONTAINS ADDRESSES OF SECTORS IN ERROR 
$CYL.$TRK,$SEC CONTAINS ADDRESS OF CURRENT TRACK 
TRKER .NE. 0 

OUTPUTS: 

SECTBL CLEARED . , 

ENTRIES MADE IN THE MDBSF .UDBSF .1 SSF'S 

'LASTER' CONTAINS THE ADDRESS OF THE LAST SECTOR IN ERROR ON 
THE TRACK 


000724 012700 177777 


VFYSEC: MOV 


#-1 ,R0 


USE RO AS THE INDEX INTO 'SECTBL' 


SEQ 0086 


SECTOR) 
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SEQ 0087 


224 000750 

005200 


11: 

INC 

RO 

225 000732 

105760 

000144' 


TST8 

SECTBL(RO) 

226 00C736 

001774 



8EQ 

IS 

227 000740 

010046 


2S: 

MOV 

RO,-(SP) 

228 000742 

010067 

OOOOOOG 


MOV 

RO.SSEC 

229 000746 

016767 

OOOOOOG OOOOOCG 


MOV 

SCYL.SBUF 

230 000754 

052767 

150000 OOOOOOG 


BIS 

#1 50000. SBUf 

251 000762 

1 16 7 67 

0000006 000003G 


MOVB 

STRK,SBUF*3 

232 000770 

116767 

OOOOOOG 000002G 


MOVB 

SSEC ,SBUF *2 

233 000776 

012705 

OOOOOOG 

3$: 

MOV 

# SBUF.R5 

234 001002 

012767 

001004 OOOOOOG 


MOV 

#516. ,SXf RSZ 

235 001010 

004767 

OOOOOOG 


call 

SCVTDA 

236 001014 

004767 

OOOOOOG 


CALL 

SDSKWC 

257 001020 

005767 

OOOOOOG 


TST 

SRGBUF 

238 001024 

100007 



BPL 

41 

239 001026 

004767 

000044 


call 

CKERR 

240 001032 

103761 



BCS 

31 

241 001034 

004767 

OOOOOOG 


CALL 

SDSTRB 

242 001040 

012600 



MOV 

(SP)*,RO 

243 001042 

000406 



BR 

51 

244 001044 

012600 


4$: 

MOV 

(SP>*#RO 

245 001046 

105360 

000144' 


DECB 

SECTBL(RO) 

246 001052 

100332 



BPL 

2S 

247 G01054 

105060 

000144' 


CLRB 

SECTBL(RO) 

249 001060 

016767 

OOOOOOG 177116 

5S: 

MOV 

ssec.laster 

250 001066 

005367 

177050 


DEC 

TRKER 

251 001072 

001316 



BNE 

IS 

252 001074 

000207 



RETURN 



INCREMENT THE INDEX 
ENTRY ’ 

If EQ. NO 

SAVE THE INDEX 

RELOAD THE SECTOR ADD9ESS 

SETUP A SECTOR IMAGE 

SET THE MF, UF. AND FMT16 BITS 

LOAD THE TRACK ADDRESS 

load the sector address 

BUFFER ADDRESS 

SECTOR - INCLUDING HEADER BYTE COUNT 
CONVERT THE PHYSICAL ADDRESS TO LBN 
WRITE CHECK THE SECTOR 
ANY ERRORS ? 

IF PI , NO 

PROCESS THE ERROR 

IF CS. NON-DATA ERROR - RETRY 

PUT THE SECTOR INTO THE PROPER BSf 

RESTORE THE SECTOR TABLE INDEX 

RESTORE THE SECTOR TABLE POINTER 
COUNT THE SUCESSFUL RE-READ 
IF PL CONTINUE 

CLEAR THE SECTOR ENTRY, ERROR WAS NOT 
REPEATED 

ASSUME CURRENT ERROR IS LAST ERROR ON THIS TRACK 
DECREMENT THE ERROR COUNTER 
IF NE, NOT FINISHED 


••-CKERR-VERIFY MODULE DEVICE ERROR ANALYSIS ROUTINE 

THIS ROUTINE WILL ANALYZE THE DISK ERROR AND REPORT THE ERROR AS REQUIRED. 

IF SKI 

THEN REPORT I RECALIBRATE 
ELSE REPORT ERROR 

IE NOT DATA ERROR 

THEN RETRY UNTIL SUCESSFUL OR RETRY LIMIT EXCEEDED 
ELSE DETERMINE SECTOR IN ERROR 

If TRACK ERROR COUNT ( ' TRKER* ) .EQ 0 

THEN LAST ERROR SECTOR CLASTER') <= ERROR SECTOR 
IF ERROR IS HEADER ERROR 

THEN ERROR TYPE ( 'SHDRFG* > <= 1 
ELSE 'HDRFG' <- 0 

IF VERIFY COUNT ( ' VF YCNT ) .NE. 0 r , 

THEN IF SECTOR IN ERROR NOT LISTED IN BSF. SSF . OR FEBSF (SSRALL) 

THEN LOAD SECTOR RETRY COUNT IN SECTOR ERROR TABLE ‘.'SECTBL ) 
•TRKER' = 'TRKER* ♦ 1 

TRANSFERRED SECTOR COUNT ( *Xf RSEC ' ) = ((ERROR SECTOR)-(START SECTORH-1 
IF ' XFRSEC ' .NE. 0 

THEN END SECTOR <= (ERROR SECTOR-1) . , , 

WORD COUNT <= ((END SEC TOR)-(STAR SECTOR ♦1)*1)*?S8 


INPUT S * 

iRGBUF - CONTAINS THE RM80 REGISTER CONTENTS 
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SEO OOfc 


281 

282 

285 

28a 

285 

286 

287 

288 

289 

290 

291 

292 
295 
29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 
30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 
33** 

336 

337 


001076 
001102 
001106 
001110 
001114 
001120 
00112*. 
001 1 30 
001134 
001140 
001146 
001152 
001156 
001160 
001162 
001164 
001172 
001 1 74 
001202 
001204 
001210 
0012H 
001216 


001220 
001224 
001230 
001234 
001 24C 
001244 
001246 
001252 
001256 
001262 
001266 
001272 
001276 
001302 
001306 
001314 


VFYCNT - CONTROLS UPDATING * SECT0L * 

RE TURNS * 

CS - IF THE ERROR UAS A NON DATA ERROR 
OUTPUTS: 

'SECTBl ' - UPDATED IF ERROR IS A DATA ERROR AND *VF YCNT* .NE. 0 

NOTE: 

THIS ROUTINE WILL RETURN TO *SFMTEX* IF THE DRIVE EXCEEDS THE 
ERROR LIMIT. 


004767 OOOOOOG CKERR : 

016746 000006G 

005316 

042716 177740 

011667 177064 

016746 OOOOOOG 
042716 157777 

016746 00001 OG 
042716 040000 
1 56666 000001 000002 

016716 000042G 
042716 100000 

052616 
005726 
001016 

032767 110400 00001 4G 

001056 

032767 040000 0000 10G 
001052 

016746 00001 4G 
042716 110400 
005726 
001504 


; SEND 

012700 000023* IS: 

012701 000060 

004767 OOOOOOG 

004767 OOOOOOG 

105367 OOOOOOG 

001014 

012700 OOOOOOG 
012701 000060 

004767 OOOOOOG 
012700 000000* 

004767 OOOOOOG 

000167 OOOOOOG 

012700 000060* 2$: 

004767 OOOOOOG 

032767 040000 000042G 

001402 


CALL SFLRGS ; 

MOV SRGBUF *6,-(SP) ; 

DEC (SP) ; 

BIC #*C37.(SP) 

MOV (SP).LASTER ; 

MOV SRGBUF .-(SP) 

BIC **C20000.(SP) 

MOV SRGBUF *10,-<SP) .* 

BIC #40000. (SP) ; 

BISB KSP).2(SP> 

MOV SRGBUF *42, (SP) ; 

BIC #100000. (SP) ; 

BIS (SP)*.(SP> ; 

TST (SP)* 

BNE is 

BIT #11 0400. SRGBUF *U 

BNE 4S 

BIT #40000. SRGBUF *10* 

BNE 4S 

MOV SRGBUF ♦ 1 4. -(SP) ; 

BIC #110400. (SP) ; 

TST (SP)* ; 

BEQ 6S ; 


NON DATA ERROR MESSAGE 


MOV 

#MSG3V.R0 

MOV 

#60, R1 

CALL 

SPRNTO 

call 

SHGPRE 

CECB 

SSUERL 

BNE 

2S 

MOV 

#SMSG45,R0 

MOV 

#60. R1 

CALL 

SPRNTO 

MOV 

#MSG2V.R0 

CALL 

SPRINT 

JMP 

SFMTEX 

MOV 

#MSG4V.R0 

CALL 

SPRINT 

BIT 

#40000, SRGBUF *42 

BEO 

3S 


SAVE THE REGISTERS 

GET THE SECTOR ADDRESS 

BACK UP TO FAILING SECTOR 

JUST IN CASE FAILING SECTOR WAS 31. 

GET LAST ERRORED SECTOR 

GET RMCS1 

LEAVE *MCPE* 

GET PMCS2 
CLEAR *WCE * 

'OR* THE ERROR BITS FROM RMCS2 
GET RMER2 
CLEAR 'BSE* 

•OR* WITH *MCPE* t RMCS2 ERROR BITS 
SEE IF ANY ERROR BITS SET 
IF NE, YES - NON DATA ERROR 
; TEST * OCK ! DTE !HCRC* 

IF NE, MUST BE A DATA OR HEADER ERROR 
; TEST *WCE * 

IF NE, MUST BE DATA ERROR 
COPY RMER1 

clear the data/header error bits 

SEE IF ANY OTHER ERROR BITS ARE SET 
IF EQ. NO MUST BE *8SE* ERROR. ELSE 
REPORT NON DATA ERROR 


'NON DATA ERROR DURING VERIFY* 
CARRIAGE CONTROL CHARACTER 
SEND MESSAGE 

TYPE THE DEVICE REGISTERS 
SEE IF ERROR LIMIT EXCEEDED 
IF NE, NO 

•ERROR LIMIT EXCEEDED* 

CARRIAGE CONTROL CHARACTER 
SEND MESSAGE 
'VERIFY TERMINATING* 

PRINT THE MESSAGE 
ABORT THE FORMATTER 
'VERIFY CONTINUING* 

SEND MESSAGE 

; SEE IF * SK ! ’ 

IF EO. NO 
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SEQ 0089 


358 001316 

004767 

OOOQOOG 



CALL 

SHOMSK ; 

539 001322 

005726 



3S: 

TST 

(SP)» 

340 001324 

000261 




SEC 

0 

341 001326 

342 

000207 




RETURN 


34 3 

34 4 

345 001330 




; PROCESS THE DATA ERROR AND EXIT 

032767 

000400 

00001 4G 

AS: 

BIT 

#400,$RGBUF*14 

346 001336 

001402 




BEQ 

5S 

347 001 340 

105267 

OOOOOOG 



INCB 

SHDRFG 

348 001344 

349 

350 001350 

005767 

176644 


51: 

TST 

VFYCNT 

001457 




BEQ 

9S 

351 001352 

011667 

OOOOOOG 



MOV 

(SP).SSEC 

352 001356 

004767 

OOOOOOG 



CALL 

SSRALL 

353 001362 

103022 




BCC 

6$ 

354 001364 

005267 

176552 



INC 

TRKER 

355 001370 

356 001372 

011600 

116760 

OOOOOOG 

000102’ 

o 

o 

o 


MOV 

MOVB 

(SP).RO 

sretIW.sectbliroJ 

357 001400 

012700 



MOV 

#msg5v,ro 

358 001404 

012701 

000060 



MOV 

#60. R1 

359 001410 

004767 

OOOOOOG 



CALL 

SPRNTO 

360 001414 

004767 

OOOOOOG 

000060' 



CALL 

SMGPRE 

361 001420 

012700 



MOV 

#MSG4V,R0 

362 001424 

363 

364 001430 

004767 

OOOOOOG 



CALL 

SPRINT 

011667 

176552 


6$: 

MOV 

(SP).XFRSEC 

365 001434 

166767 

176552 

176544 


SUB 

BEGSEC .XFRSEC 

366 001442 

001003 




BNE 

7$ 

367 001444 

005267 

176542 



INC 

BEGSEC 

368 001450 

000404 




BR 

8S 

369 001452 

011667 

176532 


7$: 

MOV 

(SP).ENDSEC 

370 001456 

005367 

176526 



DEC 

ENDSEC 

371 001462 

016700 

176522 


8S: 

MOV 

ENDSEC.RO 

372 001466 

166700 

176520 



SUB 

begsec.ro 

373 001472 

005200 




INC 

RO 

374 001474 

012701 

001004 



MOV 

#516. .R1 

375 001500 

004767 

OOOOOOG 



CALL 

SMULT 

376 001504 

010167 

OOOOOOG 



MOV 

R1.SXFRSZ 

(S£>* 

377 001510 

005726 



9$: 

TST 

378 001512 

000241 




CLC 


379 001514 

380 

000207 



.END 

RETURN 


381 

000001 






DO A RE CAL 
CORRECT THE STACK 
SHOW NON-DATA ERROR 


SEE IF ERROR IS A HEADER ERROR ('HCRC') 

IF EQ. DATA ERROR 

SET HEADER ERROR FLAG 

SEE IF VERIFING THE ENTIRE TRACK OR IF 

PROCESSING A SINGLE SECTOR 

IF EQ, VERIFYING SINGLE SECTORS 

PUT THE BAD SECTOR ADDRESS IN ’SSEC’ 

SEE IF THE ERROR IS IN ANY OF THE BAD SECTOR FILES 
IF CC. DEFECT IS ALREADY ACCOUNTED FOR 
INCREMENT THE TRACK ERROR COUNT 
GET THE BAD SECTOR ADDRESS 

: LOAD RETRY COUNT AND FLAG A BAD SECTOR 
'HEADER/DATA error DURING VERIFY 
CARRIAGE CONTROL CHARACTER 
SEND MESSAGE 

TYPE THE DEVICE REGISTERS 
•verify CONTINUING* 

PRINT IT 

COPY THE ADDRESS OF THE ERROR SECTOR 
CALCULATE THE NUMBER OF SECTORS TRANSFERED 
IF NE. AT LEAST ONE SECTOR TRANSFERED 
STEP AROUND THE ERROR SECTOR 

CHANGE THE ENDING SECTOR ADDRESS 

POINT TO LAST ERROR FREE SECTOR 

COPY THE ENDING SECTOR 

CALCULATE THE NEW BYTE COUNT 

CORRECT THE DIFFERENCE 

NUMBER BYTES/SECTOR 

MULTIPLY THE SECTORS * SIZE 

UPDATE THE BYTE COUNT 

CORRECT THE STACK 

SET THE DATA ERROR INDICATOR 


FMTR8V - VERIFY RM80 DISKS MACRO H1 1 1 3 07-JUL-82 15:01 PAGE 2-6 
SYMBOL TABLE 


BEGSEC 000212R TRKER 000142R $FMTEX= ****** GX 
CKERR 001076R VFYCNT 0002HR SHDRFGs ****** GX 
ENOSEC 00021 OR VFYSEC 000724R $HOMSX= ****** GX 
GENHDR= ****** GX XFRSEC 000206R SMGPRE* ****** GX 
LASTER 000204 R $BUF = ****** GX $MSG11= ****** GX 
MSG2V OOOOOOR SCVTDAs ****** GX SMSG45= ****** GX 
MSG3V 000023R SCYL = ****** GX SMULT = ****** GX 
MSG4V 000060R SDSKWC= ****** GX SMVPATs ****** GX 
MSG5V 000102R $OSTRB= ****** GX $MXSEC= ****** GX 
SECTBL 0001 AAR $F LRGS= ****** GX $PHYOV= ****** GX 


. ABS. 000000 000 

001516 001 


ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 567 WORDS ( 3 PAGES) 
DYNAMIC MEMORY: 79A2 WORDS ( 30 PAGES) 
ELAPSED TIME: 00:00:15 
[300.203FMTR8V, t300.303FMTR8V=C300.10]FMTR8V 


M 7 


SEO 0090 


$PRINT= ****** GX SSWERL= ****** GX 
SPRNTO= ****** GX SSWFFE= ****** GX 
SRETRY= ****** GX STRK = ****** GX 
SRGBUFs ****** GX STSTMX= ****** GX 
SRM80V 000216RG SUPDMX= ****** GX 
SR80SF= ****** GX SVERIF = ****** GX 
SRBOTFs ****** GX SWTBSF= ****** GX 
SSEC s ****** GX SWTSSF = ****** GX 
SSRALL= ****** GX SXFRSZ= ****** GX 
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N 7 


SEQ 0091 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 000000 

38 000007 

39 000015 

40 000021 

41 000040 

42 000063 

43 000100 

44 000126 

45 000145 

46 

47 

48 

49 

50 000210 

51 

52 000214 

53 

54 

55 

56 

57 000220 


000003 

000003 

000000 


151040 

151037 


TITLE FMTR8M - DEFECT ENTRY MODULE 
IDENT 702.00/ 


COPYRIGHT (C) 1980,1982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR 1 HE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 
M. LEAVITT 


18-AUG-80 

02-JUL-82 


MESSAGES 


125 

104 

102 

.NLIST BEX 

MSG1R8: .ASCIZ 

115 

123 

102 

MSG2R8: .ASCIZ 

123 

123 

106 

MSG3R8: .ASCIZ 

106 

105 

040 

MSG4R8: .ASCIZ 

104 

125 

120 

MSG7R8: .ASCIZ 

106 

111 

114 

MSG8R8: .ASCIZ 

105 

116 

124 

MSGCR8: .ASCIZ 

103 

131 

114 

MSGDR8: .ASCIZ 

110 

104 

101 

MSGER8: .'.ASCIZ 


.EVEN 


/UDBSF / 

/MSBSf/ 

/SSF / 

/FE BAD SECTORS/ 

/DUPLICATE ENTRY - / 

/FILE FULL - / 

/ENTER BAD SECTR ADRS:/ 

/CYL.TRK.SEC = / 

iHDA S/N DOESN'T MATCH CURRENT S/N3 


; LBN CONSTANTS 
FELBN: .WORD 
USRLBN: .WORD 


3,151040 

3,151037 


BEGINNING OF THE DEC144 
(558.. 13.0) 

END OF USER SPACE 
(558. .12. .31.) 


/ FE CYLINDERS 


; MINIMUM/MAXIMUM STORAGE FOR INPUT ROUTINE 

HINCYL: .WORD 0 .‘STORE MIN. CYLINDER ADDRESS HERE 
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B 8 


SEJ 0092 


58 000222 000000 

59 000224 000000 

60 000226 OOOOOO 

61 


MINTRK : .WORD 0 
MAXCYL: .WORD 0 
MAXTRK: .WORD 0 


; " TRACK *' 

•STORE MAX. CYLINDER ADDRESS HERE 

; *' TRACK 
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C 8 


SEQ 0093 


••-SRM80M-MANUAL INPUT OF UDBSF OR SSF DATA 

THIS ROUTINE WILL ACCEPT MANUALLY INPUTTED DATA FOR EITHER THE 
UDBSF OR SSF FILES AND RE-WRITE THESE FILES TO THE RM80 DISK. 

INPUTS: 

NONE 

OUTPUTS: 

RE-WRITTEN UDBSF OR SSF 


77 000230 

004767 

OOOOOOG 

SRM80M: .CALL 

SRDSSF 

READ SKIP SECTOR FILE 

78 000234 

004767 

OOOOOOG 

CALL 

SRDBSF 

READ THE MDBSF g UDBSF 

79 000240 

012701 

000060 

MOV 

#60,R1 

SET 2 LINE FEED CONTROL 

80 000244 

012700 

000100' 

MOV 

#MSGCR8,R0 

GET ADDRESS OF MET SAGE 

81 000250 

82 

83 000254 

004767 

OOOOOOG 

CALL 

SPRNTO 

PRINT 'ENTER BAD SECTR ADRS:' 

004767 

000554 

IS: CALL 

INPUT 

GET SSF ENTRIES 

34 000260 

001403 


BEO 

2S 

IF EQ. FINISHED 

85 000262 

004767 

000024 

CALL 

SDSTRB 

DISTRIBUTE ENTERED ADDRESS INTO CORRECT FILE 

86 000266 
87 

38 000270 

000772 


BR 

IS 

CONTINUE 

004767 

OOOOOOG 

2$: CALL 

SR80SF 

FORMAT THE BSF/SSF TRACKS 

89 C00274 

004767 

OOOOOOG 

CALL 

SWTSSF 

RE-WRITE THE SSF 

90 000300 

004767 

OOOOOOG 

call 

SWTBSF 

RE-WRITE THE BSF 

91 000304 

92 000310 

105067 

000207 

OOOOOOG 

CLRB 

RETURN 

SSWMOD 

CLEAR THE MODIFY FLAG 


93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
103 

109 

110 000312 

111 000316 

112 000322 

113 000324 

114 000330 

115 000334 

116 000336 

117 000342 

118 000344 

119 000350 


105067 

004767 

103405 

012704 

004767 

000556 

105767 

001041 

012701 

012702 


OOOOOOG 

OOOOOOG 

000015' 

000410 

OOOOOOG 

OOOOOOC 

OOOOOOC 


••-SDSTRB-ROUTINE WILL DISTRIBUTE THE DEFECT ADDRESSES 

THIS ROUTINE DISTRIBUTES THE OPERATOR ENTERED ADDRESS TO THE CORRECT 
DEFECT FILE AND CHECKS FOR DUPLICATION IN THE SSF. 


INPUTS; 


SCYL = OPERATOR ENTERED CYLINDER ADDRESS 
STRK = OPERATOR ENTERED TRACK ADDRESS 
SSEC = OPERATOR ENTERED SECTOR ADDRESS 
SHDRFG = 1 IF DEFECT IS A HEADER DEFECT 


OUTPUTS: 

NONE 


SDSTRB: :CLRB 
CALL 
BCS 
MOV 
CALL 
BR 

IS: TSTB 

BNE 
MOV 
MOV 


SKPFRE 

SSRSDF 

1$ 

#MSG3R8,R4 

DUP 

13S 

SHDRFG 

4S 

fSSSF *<2*SSSF HD> 


ftSSF +<1000*SSSF LN>-2 ,R2 


CLEAR THE SKIP SECTOR FLAG 
SEE IF ENTRY IN THE SSF 
IF CS. NO 

DUPLICATE ENTRY MESSAGE 
TYPE THE MESSAGE 
TRY AGAIN 

SEE IF DEFECT IS A HEADER DEFECT 
IF NE. IT IS 
4.R1 ; SSF ADDRESS 


SSF LENGTH 
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D 8 


S£Q 0094 


120 000354 

004767 

OOOOOOG 


call 

SSRTRK 

SEARCH THE SSF 

121 000360 

103032 



BCC 

4S 

IF CL. TRACK IS IN THE SSF 

122 000562 

020127 

OOOOOOC 


CMP 

R1 .ASSSF ♦<1000»$SSFLN>-2 ; IS SSF FULL? 

123 000366 

001005 



BNE 

2S 

IF NE NO 

124 000370 

012704 

00001 5 1 


MOV 

AMSG3R8.R4 

Gt T SSF MESSAGE 

125 000374 

004767 

000400 


CALL 

FULL 

ISSUE FILE FULL MESSAGE 

126 000400 

127 

128 

000534 



BR 

131 

GET NEXT ENTRY 



; LOAD 

SSF WITH 

NEW BAD SECTOR ADDRESS, REVISION DATE. REVISION NUMBER 

129 

130 

131 000402 



; AND 

UPDATED ENTRY NUMBER 


016721 

OOOOOOG 

2$: 

MOV 

$CYL,(R1>* 

PUT CYLINDER ADDRESS INTO SSF 

132 000406 

116721 

OOOOOOG 


MOVB 

$SEC, (R1 )♦ 

PUT SECTOR ADDRESS INTO SSF 

133 000412 

116721 

OOOOOOG 


Move 

STRK , (R1 ) ♦ 

PUT TRACK ADDRESS INTO SSF 

134 000416 

016767 

OOOOOOG 000006G 


MOV 

DPARS.SSSF *6 

LOAD SSF REVISION DATE IN TABLE 

135 000424 

026767 

OOOOOOG 00001 OG 


CMP 

$REVNM,$SSF*10 

HAS REVISION NUMBER BEEN UPDATED *ET 

136 000432 

001002 



BNE 

3$ 

BR IF YES 

137 000434 

005267 

00001 OG 


INC 

$SSF ♦10 

UPDATE REVISION NUMBER 

138 000440 

005267 

000022G 

3$: 

INC 

SSSF *22 

INCREMENT NUMBER OF ENTRIES 

139 000444 

000512 



BR 

1 3$ 

CONTINUE 


T40 

141 ; SEE IF THE DEFECT CAN GO INTO THE UDBSF OR FEBSF 


142 


143 000446 

004767 

OOOOOOG 

4$: 

CALL 

SSRSSF ; 

144 000452 

103404 



8CS 

5$ 

145 000454 

105367 

OOOOOOG 


DECB 

SSEC ; 

146 000460 

105267 

OOOOOOG 


INCB 

SKPFRE ; 

147 000464 

012704 

000007* 

5$ : 

MOV 

0MSG2R8.R4 

148 000470 

004767 

OOOOOOG 


CALL 

SSRMDF 

149 000474 

103012 



BCC 

6$ ; 

150 000476 

012704 

000021 ' 


MOV 

AMSG4R8.R4 ; 

151 000502 

004767 

OOOOOOG 


CALL 

SSRFES 

152 000506 

103005 



BCC 

6$ ; 

153 000510 

012704 

000000 s 


MOV 

#MSG1R8,R4 ; 

154 000514 

004767 

OOOOOOG 


CALL 

SSRUDT ; 

1*3 000520 

103406 



acs 

7$ 

156 000522 

105767 

OOOOOOG 

6$: 

TSTB 

SKPFRE ; 

157 000526 

001051 



BNE 

12$ 

158 000530 

004767 

000210 


CALL 

DUP 

159 000534 

000456 



BR 

13$ ; 

160 000536 

004767 

000156 

7$: 

CALL 

CKUSR 

161 000542 

103020 



BCC 

9$ 

162 000544 

004767 

000124 


CALL 

CHKFE ; 

163 000550 

103005 



BCC 

8$ 

164 000552 

012700 

OOOOOOG 


MOV 

#$HSG32.RO ; 

165 000556 

004767 

OOOOOOG 


CALL 

$PR I NT ; 

166 000562 

000443 



BR 

13$ 

167 000564 

004767 

OOOOOOG 

8$: 

CALL 

SSRFES ; 

168 000570 

012704 

000021 * 


MOV 

0MSG4R8.R4 ; 

169 000574 

020127 

0001 OOG 


CMP 

R1.#$FEBSF*64. ; 

170 000600 

001013 



BNE 

11$ ; 

171 000602 

000407 



BR 

10$ ; 

172 000604 

004767 

OOOOOOG 

9$: 

CALL 

SSRUDF : 

173 000610 

020127 

000774G 


CMP 

R1.#$UDBSF +1000-4 

174 000614 

001005 



BNE 

11$ ; 

175 000616 

012704 

000000* 


MOV 

AMSG1R8.R4 

176 000622 

004767 

000152 

10$: 

CALL 

FULL ; 


SEE IF ENTERED SECTOR IS WITHIN A SKIP REGION 
IF CS, NO 

DECREMENT THE SECTOR ADDRESS 

SHOW SECTOR WITHIN A SKIP REGION 

ASSUME DUPLICATE MDBSF ENTRY 

SEARCH TNE MDBSF 

IF CC, ENTRY DUPLICATED 

ASSUME DUPLICATE ENTRY 

SEE IF ENTRY DUPLICATED IN THE FE AREA 

IF CC, ENTRY DUPLICATED 

ASSUME DUPLICATE UDBSF 

SEARCH THE UDBSF 

IF CS, ENTRY NOT DUPLICATED 

SEE IF IN A SKIP REGION 

IF NE, YES 

REPORT IT 

GET ANOTHER ENTRY 

SEE IF ENTRY IF FOR THE USER ADDRESSES 
IF CC. YES 

SEE IF ENTRY IS FOR FE CYLINDERS 
IF CC. YES 
'INVALID ENTRY* 

PRINT THE MESSAGE 

LOCATE WHERE TO PUT THE ENTRY 
FE BSF MESSAGE SUFFIX 
IF THE FE BSF FULL ? 

IF NE, NO 
REPORT FILE FULL 
LOCATE LAST ENTRY IN THE UDBSF 
; IS UDBSF FULL? 

IF NE. NO 

UDBSF MESSAGE SUFFIX 
ISSUE FILE full MESSAGE 
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177 000626 

000421 



BR 

1 3t 

TRY AGAIN 

178 000630 

016721 

OOOOOOG 

lit: 

MOV 

tC YL , (R1 ) ♦ 

PUT CYLINDER ADDRESS INTO UDBSF 

179 000634 

116721 

OOOOOOG 


MOVB 

tSEC . (R1 )♦ 

PUT SECTOR ADDRESS INTO UDBSF 

180 000640 

116721 

OOOOOOG 


MOVB 

tTRK. (R1 1 ♦ 

PUT TRACK ADDRESS INTO UDBSF 

181 000644 

105767 

OOOOOOG 


TSTB 

SKPFRE 

SEE IF SECTOR UITHJN A SKIP REGION 

182 000650 

001410 



BE 0 

13t 

IF EO. NO 

183 000652 

105767 

OOOOOOG 

12S: 

TSTB 

SHDRFG 

UAS ENTRY FOR A HEADER DEFECT ? 

184 000656 

001405 



BEQ 

1 3t 

IF EO. NO - GET NEXT ENTRY 

185 000660 

105067 

OOOOOOG 


CLRB 

tHDPFG 

CLEAR THE HEADER DEFECT FLAG 

186 00066*> 

105267 

OOOOOOG 


1NCB 

tSEC 

INCREMENT SECTOR ADDRESS 

187 000670 

000675 



BR 

5t 

CONTINUE 

188 000672 

000207 


1 3t: 

RETURN 




SEQ 0095 


201 000674 

202 000700 

203 000706 

204 000710 
2U5 000716 
206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 J00720 

219 000724 

220 000732 

221 0C0734 

222 000742 


004767 

026767 

103403 

026767 

000207 


004767 

026767 

101003 

026767 

000207 


••-CHKFE-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE F £ CYLINDERS 


INPUTS: 


SCYL.tTRK.tSEC LOADED 


RETURNS: 

CS 

CC 


ENTRY IS NOT FOR THE FE CYLINDERS 
ENTRY IS FOR FE CYLINDERS 


OOOOOOG 
OOOOOOG 177302 

OOOOOOG 177274 


CHKFE : CALL tCVTDA 

CMP SLBNH.FELBN 

BLO It 

CMP tLBNL .FELBN+2 

It: RETURN 


CONVERT THE PHYSICAL ADDRESS TO AN LBN 
CHECK HIGH LBN 
IF LO. DON'T LOOK ANY MORE 
CHECK THE LOU LBN 


••-CKUSR-SEE IF THE DEFECT ADDRESS ENTRY IS FOR THE USER CYLINDERS 


INPUTS: 


tCYL.tTRK.tSEC LOADED 


OOOOOOG 

1 77264 OOOOOOG 
177256 OOOOOOG 


RETURNS: 

CS 

CC 


CKUSR: CALL 
CMP 
BHI 
CMP 

It: RETURN 


ENTRY IS NOT FOR THE USER CYLINDERS 
ENTRY IS FOR USER CYLINDERS 


tCVTDA 

USRLBN.tLBNH 

It 

USRLBN»2,tlBNL 


CONVERT THE PHYSICAL ADDRESS TO AN LBN 
CHECK HIGH LBN 
IF LO. DON'T LOOK ANY MORE 
CHECK THE LOU LBN 


••-DUP-DUP ROUTINE UILL ISSUE THE DUPLICATE ENTRY MESSAGE FOR SPECIFIED FILE 
THIS ROUTINE UILL ISSUE THE DUPLICATE ENTRY MESSAGE FOR THE SPECIFIED F HE 


INPUTS 


R4 = ADDRESS OF SPECIFIED FILE MESSAGE 


OUTPUTS: 

NONE 
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SEQ 0096 


256 

237 0007A4 

012703 

000040' 

DUP: MOV 

AHSG7R8.R3 

238 000750 

012700 

OOOOOOG 

MOV 

♦SBUF RX ,R0 

239 000754 

004767 

OOOOOOG 

call 

SMOVE 

240 000760 

010403 


MOV 

R4 ,R3 

SMOVE 

241 000762 

004767 

OOOOOOG 

call 

242 000766 

012700 

OOOOOOG 

MOV 

fSBUFRX.RO 

243 000772 

004767 

OOOOOOG 

call 

SPRINT 

244 000776 

000207 


RETURN 



245 

246 

247 

248 

249 
2**0 
2 j1 

252 

253 

254 

255 

256 

257 001000 

258 001004 

259 001010 

260 001014 

261 001016 
262 001022 

263 001026 

264 001032 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 001034 

284 001040 

285 001044 

286 001050 

287 001054 

288 001060 

289 001062 

290 


012703 

012700 

004767 

010403 

004767 

012700 

004767 

000207 


000063' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


105067 

012703 

004767 

012700 

004767 

001001 

000207 


OOOOOOG 

OOOOOOG 

OOOOOOG 

000126* 

OOOOOOG 


GET DUPLICATE ENTRY MESSAGE 
GET ADDRESS OF OUTPUT BUFFER 
PUT MESSAGE IN OUTPUT BUFFER 
GET ADDRESS OF SPECIFIED FILE 
PUT THAT IN OUTPUT BUFFER 
GET ADDRESS OF MESSAGE BUFFER 
PRINT IT 


••-FULL-FULL ROUTINE WllL ISSUE THE FILE FULL MESSAGE FOR SPECIFIED FILE 


INPUTS: 


R4 = ADDRESS OF FILE NAME MESSAGE 


OUTPUTS: 

NONE 


FULL: 


MOV 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

RETURN 


«MSG8R8,R3 

fSB’JFRX.RO 

SMOVE 

R4.R3 

SMOVE 

fSBUFRX.RO 

SPRINT 


GET FILE FULL MESSAGE 
GET ADDRESS OF OUTPUT BUFFER 
PUT MESSAGE IN OUTPUT BUFFER 
GET ADDRESS OF FILE NAME MESSAGE 
PUT THAT IN OUTPUT BUFFER 
GET ADDRESS OF MESSAGE BUFFER 
PRINT IT 


••-input-input DATA FOR SPECIFIED file 

THIS ROUTINE WILL PROMPT THE USER FOR THE DESIRED CYLINDER. TRACK. AND SEC T OR 
ADDRESS. 

INPUTS: 

NONE 

OUTPUTS: 

SCYL. STRK, AND SSEC SET TO SPECIFIED VALUES 
SHDRFG = 1 IF THE ENTRY HAD AN ’H' SUFFIX 
IF l = 1 NO MORE DATA TO INPUT 

If l = 0 MORE DATA TO INPUT 


INPUT: 


CLR8 

MOV 

CALL 

MOV 

CALL 

8NE 

RETURN 


SHDRFG 

*SPHYDV,R3 

SUPDMX 

#MSGDR8.R0 

SPRMPT 

2 $ 


CLEAR THE HEADER FLAG 

POINTER TO PHYSICAL DEVICE GEOMETRY 

UPDATE MAX VALUES 

OPERATOR PROMPT 

GET INPUT FROM THE USER 

IF NE. INPUT FROM USER 
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291 001064 

004767 

000150 


?S: 

CALL 

LDLMTS 

292 001070 

01 L 700 

OOOOOOG 



MOV 

flBUFRX.RO 

#'#,(R0) 

293 001074 

122710 

000043 



CMPB 

294 001100 

001452 




BEQ 

4$ 

295 001102 

004767 

OOOOOOG 



CALL 

SCDTB 

#\,R2 

296 001106 

122702 

000054 



CMPB 

297 001112 

0010-5 




BNE 

41 

298 001114 

004767 

000120 



CALL 

LDLMTS 

299 001120 

020167 

1 77i CC 



CMP 

R1 .HAXCYL 

300 001124 

101040 




BHI 

4S 

301 001126 

020167 

177066 



CMP 

ri.mincyl 

302 001132 

002435 




BLT 

4$ 

303 001134 

304 

010167 

OOOOOOG 



MOV 

R1 ,$CVL 

305 001140 

004767 

OOOOOOG 



CALL 

SCDTB 

306 001144 

122702 

000054 



CMPB 

#\.R2 

307 001150 

001026 




BNE 

4S 

308 001152 

020167 

177050 



CMP 

R1 ,MAXTRK 

309 001156 

101023 




BHI 

4S 

310 001160 

020167 

177036 



CMP 

R1 .MINTRK 

311 C01164 

002420 




BLT 

4S 

312 001166 

313 

010167 

OOOOOOG 



MOV 

ri.strk 

314 001172 

004767 

OOOOOOG 



call 

SCDTB 

315 001176 

020127 

000037 



CMP 

Rl,#31. 

316 001202 

101011 




BHI 

4S 

317 001204 

010167 

OOOOOOG 



MOV 

R1.SSEC 

318 001210 

122702 

000110 



CMPB 

#'H,R2 

319 001214 

001002 




BNE 

3S 

320 001216 

105267 

OOOOOOG 



INCB 

SHDRFG 

321 001222 

000244 



3S: 

CLZ 


322 001224 

000207 




RETURN 

RSMSG32.R0 

323 001226 

012700 

OOOOOOG 


4$: 

MOV 

324 001232 

004767 

OOOOOOG 



CALL 

SPRINT 

325 001236 

326 

000704 




BR 

IS 

327 




.*♦ 



328 

329 

330 




; **-LDLMTS-LOAD LIMITS 




; THIS 

ROUTINE 

LOADS THE MINI 

331 




; USED 

BY THE * 

INPUT* SUBROUT 

332 







333 







334 

335 001240 

005067 

176754 


LDLMTS 

CLR 

M1NCYL 

336 001244 

005067 

176752 



CLR 

MINTRK 

337 001250 

012767 

001060 

176746 


MOV 

#560.. HAXCYL 

338 001256 

012767 

00001 5 

176742 


MOV 

#13.,HAXTRK 

339 001264 

105767 

OOOOOOG 



TSTB 

SSWFFE 

340 001270 

001411 




BEQ 

IS 

341 001272 

012767 

001056 

176720 


MOV 

#558. .HINCYL 
R1.#5$8. 

342 001300 

U20127 

001056 



CMP 

343 001304 

001003 




BNE 

IS 

344 001306 

012767 

000015 

1 76706 


MOV 

#1 3. .MlNlRK 

344 001314 
346 

000207 



IS: 

RETURN 


34 7 

000001 



.END 




SEO 0097 


initialize disk address limits 

BUFFER POINTER 
SEE IF OCTAL INPUT 
IF EQ, ERROR 

CONVERT THE CYLINDER ADDRESS 
CHECK PROPER SEPARATOR 

ft fciC CpQHfi 

LOAD NEW TRACK ADDRESS LIMITS 
lOOK FOR VALID CYLINDER ADDRESS 
IF HI, INVALID CYLINDER ADDRESS 
LOOK FOR VALID CYLINDER ADDRESS 
IF LT. invalid cylinder ADDRESS 
LOAD THE CYLINDER ADDRESS 

CONVERT THE TRACK ADDRESS 
CHECK FOR PROPER SEPARATOR 
IF NE, ERROR 

LOOK FOR VALID TRACK ADDRESS 
IF HI, INVALID TRACK ADDRESS 
LOOK FOR VALID TRACK ADDRESS 
IF LT, invalid TRACK ADDRESS 
LOAD THE TRACK ADDRESS 

CONVERT THE SECTOR ADDRESS 
LOOK FOR VALID SECTOR ADDRESS 
IF HI, INVALID SECTOR ADDRESS 
LOAD THE SECTOR ADDRESS 
HEADER ERROR ADDRESS ? 

IF NE. NO 

SET THE HEADER ERROR FlAG 

SHOW MORE INPUT 

EXIT 

INVALID RESPONSE 
TYPE THE MESSAGE 
CONTINUE 


AND MAXIMUM DISK ADDRESS LIMITS 


ASSUME MIN. CYLINDER 1 0. 

" TRACK= 0. 

ASSUME MAX. CYLINDER^ 560. 

“ TRACK= 13. 

FORMATTING FE CYLINDERS ONLY ? 
BR IF NO 

MIN. CYLINDER= 558. 

IS CYLINDER INPUT 558. ? 

BR IF NO 
MIN. TRACK= 13. 
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CHKFE 

000674R 

MSGCR8 

000100R 

SCDTB = 


CKUSR 

000720R 

MSGDR8 

000126R 

$CVTDA= 


DPARS = 

*...«* GX 

MSGER8 

OOOU5RG 

SC YL = 

•*•*•• GX 

DUP 

000744R 

MSG1R8 

OOOOOOR 

SDSTRB 

000312RG 

FELBN 

000210R 

MSG2R8 

000007R 

SF EBSF = 

•••**• GX 

FULL 

001000R 

MSG3R8 

00001 5R 

$HDRFG= 


INPUT 

001034R 

MSG4R8 

000021 R 

SLBNH = 


LDLMTS 

001240R 

MSG7R8 

000040R 

SLBNL * 


MAXCYL 

00C224R 

MSG8R8 

000063R 

SMOVE = 


MAXTRK 

000226R 

SKPFRE= 

****** GX 

$MSG32= 


M1NCYL 

000220R 

USRLBN 

00021 4R 

SPHYDV* 


MINTRIC 

000222R 

SBUFRX= 


$PRINT= 



. ABS , OOOOOO 000 

001316 001 

ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 602 WORDS ( 3 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 
ELAPSED TIME: 00:00:13 

[300.20]FMTR8M.C300.30]FMTR8M=t300.10]FMTR8M 


8 


i£0 0098 


$ORMPT* GX SSRTRXs ****** GX 

SPRNTO* ****** GX SSRUDFs ****** GX 

IRDBSF * *•••** GX tSSF * * GX 

SRDSSFs ****** GX tSSFHD 2 ****** GX 

SREVNM* **•••* GX SSSFLN* ****** GX 

SRM80M 000230RG tSWFFE- GX 

SR80SF s **•*•* GX SSWMCD 3 ****** GX 

SSEC * ****** GX $1RK s ****** GX 

SSRFES* *••••• GX SUDBSF= ****** GX 

ISRMDF* ****** GX $UPDMX= ****** GX 

ISRSDF * *•*•*• GX $WTBSF= ****** Gx 

SSRSSF * ****** GX $WTSSF= ...... Gx 



SEQ 0099 
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1 

2 

3 

A 

5 

6 

7 

8 

9 

10 

11 

1 ? 

13 

K 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


.TITLE FMTR8L - DISPLAY BAD SECTOR FILE CONTENTS 
1DENT 701.00/ 

COPYRIGHT (C) 1980 

DIGITAL EOl':°MENT CORPORATION. MAYNARD. MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR ANY OTHER 
COPIES THEREOF. MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAl. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY Of 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED ev DIGITAL. 


VERSION 01.00 

C. HESS 
M. LEAVITT 


9-JUL-80 

22-0CT-80 


31 

32 

33 000000 

123 

123 

106 

.NL 1ST 

MSG1L: 

BEX 

.ASCIZ 

34 000043 

115 

104 

102 

MSG2L: 

.ASCIZ 

35 000062 

125 

104 

102 

HSG3L: 

.ASCIZ 

36 000101 

103 

122 

105 

MSG4L : 

.ASCIZ 

37 000121 

110 

104 

101 

MSG5L: 

.ASCIZ 

38 000133 

103 

131 

114 

MSG6L: 

.ASCIZ 

39 000147 

052 

040 

111 

MSG7l: 

.ASCIZ 

40 000170 

052 

040 

116 

MSG8L: 

.ASCIZ 

41 000207 

122 

105 

126 

MSG9L: 

.ASCIZ 

42 000227 

122 

105 

126 

HSG10L: .ASCIZ 

43 000251 

115 

104 

102 

MSGIIl: .ASCIZ 

44 000302 

125 

104 

102 

MSG12L: .ASCIZ 

45 000333 

040 

000 


SPACE : 

.ASCIZ 

47 000335 

48 

49 

50 000356 

000 



SSFLST: .BYTE 
.EVEN 

DPARS: .BLKW 


/ SSF (SKIPPED SECTOR FILE) CONTENTS/ 
/MDBSf CONTENTS/ 

/UDBSF CONTENTS/ 

BCREAT ION DATE: B 
BHD A S/N: B 

/cyl.trk.sec/ 

/• INVALID DATE •/ 

/« NO ENTRIES •/ 

/REVISION DATE: / 

/REVISION NUMBER: / 

/MDBSf ‘LOGICAL* CONTENTS/ 

/UDBSF 'LOGICAL* CONTENTS/ 

/ / 


10 . 


; LIST SSF SWITCH 


; OUTPUT CONVERSION BUFFER 


51 
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SEQ 0100 


53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 000362 

70 000366 

71 

72 

73 

74 000372 

75 000376 

76 000402 

77 000406 

78 000412 

79 000416 

80 000422 

81 000426 

82 000432 

83 000436 

84 000442 

85 000446 

86 000452 

87 000456 

88 000462 

89 000466 

90 000472 

91 000476 

92 000502 

93 000506 

94 000510 

95 000514 

96 000516 

97 000522 

98 000526 

99 000532 

100 000540 

101 000544 

102 

103 

104 


004767 

004767 


012700 

012701 

004767 

012701 

004767 

012700 

012703 

004767 

012703 

004767 

012700 

012703 

004767 

012703 

004767 

012700 

012703 

004767 

016701 

005002 

004767 

105010 

012700 

004767 

012703 

112767 

004767 

105067 


OOOOCOG 

OOOOOOG 


000000 * 
000060 
OOOOOOG 
OOOOOOG 
000600 
OOOOOOG 
000101 • 
OOOOOOG 
000004 G 
000240 
OOOOOOG 
000207* 
OOOOOOG 
000006G 
000214 
OOOOOOG 
000227* 
OOOOOOG 
0000 10G 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

177777 

000270 

177565 


**-$RM80L-DlSPLAV the CONTENTS OF the MD0SF. UDBSF , AND SSF 

THIS ROUTINE WILL DISPLAY THE CONTENTS OF THE MDBSF , THE UDBSF 
AND THE SSF FILES. 

INPUTS: 

NONE 

OUTPUTS: 

THE CONTENTS OF THE MDBSF , UD8SF , AND SSF PRINTED ON *T1 : • 
'SSWLST* CLEARED 


.ENABL LSB 

SRM80L : : CALL 
CALL 


SRDSSF 

SRDBSF 


DISPLAY THE SSF CONTENTS 


177575 


MOV 

#HSG1L,R0 

MOV 

#60, R1 

CALL 

SPRNTO 

MOV 

#SSSF,R1 

call 

HDASN 

MOV 

#$BUFRX.RO 

MOV 

#MSG4L,R3 

CALL 

SMOVE 

MOV 

#SSSF*4,R3 

CALL 

SFDATE 

MOV 

#$BUFRX ( RO 

MOV 

#HSG9L,R3 

CALL 

SHOVE 

MOV 

#SSSF*6.R3 

CALL 

SFDATE 

MOV 

fSBUFRX.RO 

MOV 

#MSG10L,R3 

CALL 

SHOVE 

MOV 

SSSF +10, R1 

CLR 

R2 

CALL 

SCBDHG 

CLRB 

(RO) 

MOV 

#SBUFRX.RO 

CALI 

SPRINT 

MOV 

#SSSF ♦<2*SSSFHD> 

movb 

#-1.SSFLST 

CALL 

BSFDAT 

CLRB 

ssflst 


READ THE SKIPPED SECTOR FILE <SSF> 
READ THE MDBSF AND THE UDBSF 


•SSF (SKIPPED SECTOR FILE) CONTENTS* 
CARRIAGE CONTROL CHARACTER 

SERIAL NUMBER POINTER 
PRINT THE HDA SERIAL NUMBER 
BUFFER POINTER 
•CREATION DATE: * 

LOAD THE BUFFER 
DATE FIELD POINTER 
PRINT THE SSF DATE FIELDS 
BUFFER POINTER 
'REVISION DATE: * 

LOAD THE BUFFER 
DATE FIELD POINTER 
PRINT THE SSF DATE FIELDS 
BUFFER POINTER 
'REVISION NUMBER: * 

LOAD THE BUFFER 
REVISION NUMBER 
ENABLE ZERO SUPRESSION 
CONVERT 

ASCIZ TERMINATOR 
OUTPUT POINTER 

R3 : BEGINNING OF SSF DATA FIELD 
SET SSF LIST FLAG 
PRINT THE SSF FILE CONTENTS 
RESET THE SSF LIST FLAG 


; DISPLAY THE MDBSF CONTENTS 


105 000550 

012700 

000043* 


MOV 

#HSG2L,R0 

; ’MDBSF CONTENTS’ 

106 000554 

105767 

OOOOOuG 


TSTB 

SSULOG 

; SEE IF LOGICAL DISPLAY 

107 000560 

001402 



BED 

10S 

; IF EQ. NO 

108 000562 

012700 

000251* 


MOV 

#MSG11L.R0 

; CHANGE TO ’MDBSF LOGICAL CONTENTS' 

109 000566 

012701 

000060 

1 OS : 

MOV 

#60, R1 

; CARRIAGE CONTROL CHARACTER 



SEQ 0101 
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110 0C0572 

004767 

OOOOOOG 

111 0C0576 

012701 

OOOOOOG 

112 0O0602 

004767 

000410 

113 000606 

01 2703 

00001 OG 

1 H 000612 

004767 

000216 

115 



116 



117 



118 000616 

012700 

000062' 

119 000622 

105767 

OOOOOOG 

120 000626 

001402 


121 000630 

012700 

000302* 

122 000634 

012701 

000060 

123 000640 

004767 

OOOOOOG 

124 000644 

012701 

OOOOOOG 

125 000650 

004767 

000342 

126 000654 

C12703 

00001 OG 

127 000660 

004767 

000150 

128 000664 

012700 

000333' 

129 000670 

0C4767 

OOOOOOG 

130 000674 

105067 

OOOOOOG 

131 000700 

0002C7 


132 



133 



134 



135 



136 



137 



138 



139 



140 



141 



142 



143 



144 



145 



146 



147 



148 



149 



150 000702 

011301 


151 000704 

042701 

177037 

152 000710 

005701 


153 000712 

001436 


161 000726 

020127 

000014 

162 000732 

101026 


163 000734 

010167 

1 77400 

164 000740 

011301 


165 000742 

042701 

177740 

166 000746 

020127 

000037 

167 000752 

101016 


168 000754 

010167 

177362 

169 000760 

116301 

000001 

170 000764 

006201 


171 000766 

062701 

OOOOOOG 

172 000772 

010167 

177340 

173 000776 

012701 

000336* 



CALL 

SPRNTO 


MOV 

0SMDBSF.R1 


CALL 

HDASN 


MOV 

0SMDBSF ♦ 1 0 , R3 


CALL 

BSFDAT 

DISPLAY THE 

UDBSF CONTENTS 


MOV 

0MSG3L.RO 


T STB 

SSULOG 


BEQ 

20S 


MOV 

0MSG12L.RO 

'OS: 

MOV 

060, R1 


CALL 

SPRNTO 


MOV 

0SUDBSF.R1 


CALL 

HDASN 


MOV 

0SUDBSF *10, R3 


CALL 

BSFDAT 


MOV 

0SPACE.RO 


CALL 

SPRINT 


clrb 

RETURN 

SSULST 

DSABL 

LSB 



MDBSF S/N POINTER 
TYPE THE SERIAL NUMBER 
MDBSF DATA POINTER 
DISPLAY THE MDBSF 


'UDBSF CONTENTS' 

SEE IF LOGICAL DISPLAY 
IF EQ. NO 

CHANGE TO 'UDBSF LOGICAL CONTENTS' 
CARRIAGE CONTROL CHARACTER 

UDBSF S/N POINTER 
TYPE THE serial NUMBER 
UDBSF DATA POINTER 
DISPLAY THE UDBSF 
BLANK LINE 
PRINT THE LINE 
CLEAR THE 'LIST* FLAG 


“-SFDATE-DISPLAY THE SSf DATE FIELD CONTENTS 

THIS ROUTINE PRINTS THE CREATION AND REVISION DATE FIELDS 
FROM THE SSF 

INPUT : 

RO = BUFFER POINTER 
R3 = DATE FIELD POINTER 

OUTPUT: 

NONE 


SFDATE: MOV 
B1C 
TST 
3E0 
CMP 
BHl 
MOV 
MOV 
BIC 
CMP 
BHl 
MOV 
MOVB 
ASR 
ADD 
MOV 
MOV 


(R3).R1 

#*C740.R1 

R1 

10S 

R1 ,012. 

ioi 

R1.DPARS*2 

(R3>.R1 

#*C3f-Rl 

R1.I31. 

ioi 

R1.DPARS*4 

1(R3).R1 

R1 

0BASYR.R1 

R1.DPARS 

0DPARS.R1 


DATE 

LEAVE MONTH CODE 
LOOK FOR VALID MONTH 
IF EQ, MONTH CODE OF ZERO 
CHECK MONTH UPPER LIMIT 
IF HI, MONTH CODE ERROR 
MOVE MONTH 
GET THE DATE AGAIN 
LEAVE THE DAY CODE 
CHECK VALIDITY 
IF HI, INVALID DAY 
MOVE DAY 

GET THE YEAR CODE 
RIGHT JUSTIFY 
ADD THE BASE YEAR 
YEAR 

INPUT BUFFER POINTER 
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SEO 0102 


8 


174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 
22 0 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 


001002 

001006 

001010 

001014 

001020 

001022 

001026 

001032 


001034 

001036 

001040 

001044 

001050 

001052 

001056 

001062 

001066 

001072 

001100 

001106 

001110 

001112 

001114 

001120 

001124 

001130 

001132 

001136 

001142 

001144 

001150 

001152 

001156 

001160 

001164 

001166 

001170 

001172 

001174 

001200 

001202 

001206 


004767 

OOOOOOG 


call 

SDAT 

CONVERT THE DATF 

0C0404 



BR 

20$ 

CONTINUE 

’** INVALID DATE 

012703 

000147’ 

10$: 

MOV 

#MSG7L,R3 

004767 

OOOOOOG 


call 

$MOVE 

LOAD THE TEXT 

105010 


20$: 

CLR8 

<R0> 

ASCIZ TERMINATOR 

012700 

OOOOOOG 


MOV 

#$BUFRX,RO 

BUFFER POINTER 

004767 

OOOOOOG 


CALL 

SPRINT 

PRINT THE DATE 

000207 



RETURN 




**-bsfdat-display the bad sector file contents 

THIS ROUTINE PRINTS THE DEFECT ADDRESS ENTRIES IN THE MDBSF 
INPUT: 


R3 = START OF THE BAD SECTOR FILE DATA AREA 
SSFLST = -1 IF THE SSF IS BEING LISTED 

OUTPUT: 

NONE 


005713 


BSFDAT : 

TST 

(R3) 

100005 



BPL 

10$ 

012700 

000170’ 


MOV 

#MSG8L ,R0 

004767 

OOOOOOG 


CALL 

SPRINT 

000461 



BR 

40$ 

012700 

000133* 

10$: 

MOV 

#MSG6L,R0 

004767 

OOOOOOG 


CALL 

SPRINT 

012700 

OOOOOOG 

20$: 

MOV 

#$BUFRX,RO 

011367 

OOOOOOG 


MOV 

(R3).$CYL 

3<R3),$TRK 

116367 

000003 OOOOOOG 


MOVB 

116367 

000002 OOOOOOG 


MOVB 

2(R3),$SEC 

012301 



MOV 

(R3M.R1 

100441 



BMI 

40$ 

005002 



CLR 

R2 

004767 

OOOOOOG 


CALL 

SCBDMG 

112720 

009054 


MOVB 

#’ (ROM 

1 (R3) ,R1 

116301 

000001 


MOVB 

005002 



CLR 

R2 

004767 

OOOOOOG 


CALL 

SCBDMG 

112720 

000054 


MOVB 

#’ ..(ROM 
(R3).R1 

111301 



MOVB 

105767 

177165 


TSTB 

SSFL§T 

001007 



BNE 

30$ 

105767 

OOOOOOG 


TSTB 

SSULOG 

001004 



BNE 

30$ 

004767 

OOOOOOG 


CALL 

SSRSSF 

103401 



BCS 

30$ 

005201 



INC 

R1 

005723 


30$: 

TST 

(R3M 

005002 

004767 

OOOOOOG 


CLR 

CALL 

R2 

SCBDMG 

105010 



CLRB 

(RO) 

012700 

OOOOOOG 


MOV 

#$BUFRX.RO 

004767 

OOOOOOG 


CALL 

SPRINT 


LOOK FOR END OF ENTRIES 
IF PL, FILE ENTRIES PRESENT 
'*» NO ENTRIES •»' 

EXIT 

’CYL,TRK,SEC* 

OUTPUT BUFFER POINTER 

LOAD THE CYLINDER ADDRESS 

LOAD THE TRACK ADDRESS 

LOAD THE SECTOR ADDRESS 

GET THE CYLINDER ADDRESS 

IF MI. NO MORE ENTRIES 

ENABLE ZERO SUPRESSION 

CONVERT 

SEPARATOR 

TRACK ADDRESS 

ENABLE ZERO SUPRESSION 

CONVERT 

SEPARATOR 

SECTOR ADDRESS 

LISTING THE SSF CONTENTS ? 

IF NE. YES 

PRINT BSF LOGICAL ADDRESSES ? 

IF NE, YES 
CHECK THE SSF 

IF CS, SECTOR ENTRY PHYSICAL VALUE 
INCREMENT THE SECTOR ADDRESS 
INCREMENT THE INPUT POINTER 
ENABLE ZERO SUPRESSION 
CONVERT 

ASCIZ TERMINATOR 
OUTPUT BUFFER POINTER 
PRINT THE ADDRESS 


SEQ 0103 
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■3 


231 001212 

232 001214 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 001216 

249 001222 

250 001226 

251 001232 

252 001236 

253 001242 

254 001246 

255 001250 

256 001254 

257 001256 

258 001262 

259 001266 

260 
261 


000723 

000207 


405: 


return 


205 


LOOP 


••-HDASN-DJ SPLAY THE HDA SERIAL NUMBER 

THIS ROUTINE CONVERTS THE HDA SERIAL NUMBER FROM THE DEC STD 144 
FILES OR THE SSF TO ASCII AND PRINTS IT. 


INPUTS: 

R1 

OUTPUTS: 


= SERIAL NUMBER FIELD POINTER 




» 

• 

NONE 


012167 

177116 

• m 

HDASN: 

MOV 

(R1 ) ♦ .DPARS+2 

011167 

177110 


MOV 

(RD.DPARS 

012701 

000336' 


MOV 

*DPARS,R1 

012703 

000121' 


MOV 

#MSG5L.R3 

012700 

OOOOOCG 


MOV 

#5BUFRX.R0 

004767 

OOOOOOG 


call 

5M0VE 

005002 



CLR 

R2 

004767 

OOOOOOG 


CALL 

5CDDMG 

105010 



CLRB 

(RO) 

012700 

OOOOOOG 


MOV 

«5BUFRX,R0 

004767 

OOOOOOG 


CALL 

5PRINT 

000207 



RETURN 


000001 


.END 




EXCHANGE S/N MSB t LSB 

RELOAD THE SERIAL NUMBER POINTER 
'HDA S/N: * 

BUFFER POINTER 

LOAD THE BUFFER 

SUPRESS LEADING ZEROS 

CONVERT THE SERIAL NUMBER TO ASCII 

ASCIZ TERMINATOR 

BUFFER ADDRESS 

PRINT THE SERIAL NUMBER 
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symbol table 


BASYR = ****** GX 
BSFDAT 001034R 
DPARS 000336R 
HDASN 001216R 
MSG1L 000000R 
MSGIOl 000227R 
MSG11L 000251 R 
MSG12L 000302R 


MSG2L 

000043R 

SF DATE 

0007Q2R 

MSG3L 

000062R 

SPACE 

000333R 

MSG4L 

0001 01 R 

SSFLST 

tQi it d V- 

000335R 

n ju jl 
M cr.Ai 

vvv II In 

noni stp 

#DUr H A- 

troriMr.* 


noUOL 

Mcrji 

vvv I Jjn 

• tDl/rlu- 


MSG8L 

MSG9L 

vvv iMfn 

0001 70R ' 

000207R 

HUl/nu- 
SCYL = 
$DAT = 

tttttt (Jx 


. ABS. 000000 
001270 


ERRORS DETECTED: 


000 

001 

0 


VIRTUAL MEMORY USED: 471 WORDS ( 2 PAGES) 
DYNAMIC MEMORY: 7942 WORDS ( 30 PAGES) 
ELAPSED TIME: 00:00:10 
[ 300, 203F MT R8L, C 300, 30] FMTR8L=C 300,1 03FMTR8L 


m 


8 


$MDBSF= ****** GX 
SMOVE = ****** GX 
$PRINT= ****** GX 
$PRNTO= ****** GX 
SRDBS's ****** GX 
SRDSSF = ****** GX 
SRM80L 000362RG 
iSEC r ****** GX 


SSRSSF = ** 

*** GX 

SSSF s •* 

*** GX 

JSSFHD* *• 

•*• GX 

SSWLOG- ** 

*•* GX 

SSWLST= *• 

•** GX 

STRK = *• 

*** GX 

SUDBSF = ** 

*•• GX 



V MT INT - INITIALIZE MDBSF, UDBS MACRO Ml 113 12-JAN-82 11:05 PAGE 1 


J - 10 ^ 



TITLE FMTINT - INITIALIZE MDBSF, UDBSF , SbF 
IDENT /01 .00/ 


COPYRIGHT (C) 1980 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VERSION 01.00 

C. HESS 15-AUG-80 

M. LEAVITT K-JAN-81 


.NLIST BEX 

040 MSG1R1: .ASCIZ /•* WARNING - BAD SECTOR FILES WILL BE OVERWRITTEN ON / 
.EVEN 
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SEO 0106 


37 

38 

39 

40 

41 

42 

43 

44 


45 

46 

47 

48 

49 


**-ftRM80I-INJTlALlZE THE RM80*S MDBSF , UDBSF , ft SSF TRACKS 

THIS ROUTINE yiLL FORMAT THE DEC STD 144 TRACK AND THE SSF TRACK 
AND WRITE NULL 16 BIT DEC STD 144 AND SKIP SECTOR FILES. 

INPUTS: 

NONE 

OUTUTS: 

NONE 


50 000066 

012703 

000000' 

SRM80I: 

:M0V 

#MSG1R1,R3 

WARNING MESSAGE ADDRESS 

51 000072 

004767 

0000006 


CALL 

SUNT ID 

STORE MESSAGE AND DEVICE/UNIT 

52 000076 

012703 

OOOOOOG 


MOV 

#JKSG24,R3 

MESSAGE SUFFIX 

53 000102 

004767 

OOOOOOG 


CALL 

SMOVE 

LOAD THE SUFFIX INTO THE MESSAGE BUFFER 

54 000106 

012700 

000144G 


MOV 

#»BUF*100..R0 

PRINT THE WARNING MESSAGE 

55 000112 

012701 

000060 


MOV 

#60, R1 

2 LINE FEED CARRIAGE CONTROL 

56 000116 

004767 

OOOOOOG 


CALL 

SPRNTO 

PRINT WARNING MESSAGE 

57 000122 

012700 

OOOOOOG 


MOV 

#SMSG31 ,R0 

•YES-NO' MESSAGE POINTER 

58 000126 

004767 

OOOOOOG 


CALL 

tPRMPT 

PROMPT AND GET RESPONSE 

59 000132 

001404 



BEQ 

IS 

IF EQ. RESPONSE WAS 'NO' 

60 000134 

122767 

000131 OOOOOOG 


CMP8 

f'V.SBUFRX 

SEE IT RESPONSE WAS 'YES' 

61 000142 

001402 



BEQ 

2ft 

IF EQ. RESPONSE WAS 'YES' 

62 000144 

000167 

OOOOOOG 

IS: 

JHP 

SFMTEX 

EXIT 

63 000150 

012703 

000374 

2S: 

MOV 

#256. -4. R3 

GET NUMBER OF ENTRIES TO RESET 

64 000154 

012700 

OOOOOOG 


MOV 

#SMDBSF ,R0 

GET START OF MDBSF 

65 000160 

016720 

OOOOOOG 


MOV 

JSNAME.(RO)* 

STUFF THE NEW SERIAL NUMBER 

66 000164 

016720 

000002G 


MOV 

ftSNAME*2. (RO)* 


67 000170 

005020 



CLR 

<R0) ♦ 

BLANK WORD 

68 000172 

005020 



CLR 

(RO)* 

SHOW NOT AN ALIGNMENT DISK 

69 000174 

012720 

177777 

3$: 

MOV 

#-1.(R0)* 

EMPTY THE MDBSF 

70 000200 

005303 



DEC 

R3 

FINISHED? 

71 000202 

001374 



BNE 

3ft 

IF NE NO 

72 000204 

012700 

OOOOOOG 


MOV 

#SUDBSF .RO 

GET START OF UDBSF 

73 000210 

016720 

OOOOOOG 


MOV 

JSNARE.(RO)* 

STUFF THE NEW SERIAL NUMBER 

74 000214 

016720 

000002G 


MOV 

ftSNAHE*2. (RO)* 

• • • 

75 000220 

005020 



CLR 

(RO)* 

BLANK WORD 

76 000222 

005020 



CLR 

(RO)* 

SHOW NOT AN ALIGNMENT DISK 

77 000224 

012703 

000374 


MOV 

#256. -4. R3 

GET NUMBER OF ENTRIES TO RESET 

78 000230 

012720 

177777 

4ft : 

MOV 

#-1.(R0S* 

EMPTY THE UDBSF 

79 000234 

005303 



DEC 

R3 

FINISHED? 

80 000236 

001374 



BNE 

4ft 

IF NE NO 

81 000240 

012703 

OOOOOOC 


MOV 

#256.«<$SSFLN>.R3 ; SSF SIZE 

82 000244 

012700 

OOOOOOG 


MOV 

#SSSF ,R0 

SSF BUFFER POINTER 

83 000250 

012720 

177777 

5ft: 

MOV 

#-1 , (RO)* 

CLEAR A LOCATION 

84 000254 

005303 



DEC 

R3 

COUNT THE LOCATION 

85 000256 

001374 



BNE 

5ft 

IF NE. NOT FINISHED 

86 000260 

016767 

OOOOOOG OOOOOOG 


MOV 

SSNAME .ftSSF 

SERIAL NUMBER LSB 

87 000266 

016767 

000002G 000002G 


MOV 

ftSNAME*2,»SSF*2 

SERIAL NUMBER MSB 

88 000274 

016767 

OOOOOOG 000004 G 


MOV 

DPARS, ftSbF *4 

CREATION DATE 

89 000302 

016767 

OOOOOOG 000006G 


MOV 

DPARS. ftSSF *6 

REVISION DATE 

90 000310 

005067 

00001 OG 


CLR 

ftSSF *iO 

REVISION NUMBER 

91 000314 

012767 

000001 00001 2G 


MOV 

#1 ,ftSS**12 

SSF DATA TYPE INDICATOR (16 BIT) 

99 000336 

005067 

000022G 


CLR 

SS§F *22 

NUMBER OF SSF ENTRIES 

100 000342 

005067 

00002 4 G 


CLR 

ftSSF *24 

CHECKSUM 


0 
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101 000 346 004767 OOOOOOG 

102 000352 004767 OOOOOOG 

103 000356 004767 OOOOOOG 

104 000362 105067 OOOOOOG 

105 000366 000207 

106 

107 000001 


CALL SR80SF 

CALL SUTBSF 

CALL SWTSSF 

CLRB SSWINT 

6S: RETURN 

.END 


SEQ 0107 


CALL the ’SPECIAL FORMATTER' 

WRITE THE DEC STD 144 INFORMATION 
WRITE THE SSF 

CLEAR THE INITIALIZATION FLAG 


9 
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SYMBOL TABLE 


SEO 0108 


DPARS = 



SMDBSF - 

• •• GX 

SPRMPT = 

MSG1RI 

OCOOOOR 


SMOVE = ••• 

••• GX 

IPRNTOs 

S8UF = 

•»•••• Gx 


SMSG24= •*« 

GX 

SRM80I 

SBUFRX= 



SMSG31 = 

GX 

SR80SF ? 

SFMTEX= 






. ABS. 

000000 

000 





000370 

001 





ERRORS DETECTED: 0 


«•***• GX 

SSNAME- 
SSSF = ••• 

*•* GX 

GX 

SUDBSF = 
$'JNTID= ••• 

GX 

GX 

000066RG 

$ssfln= • ** 

••• GX 

SWTBSF = **« 

••• GX 
••• GX 


SSWINT = *•* 

• GX 

$WTSSF= • 


VIRTUAL MEMORY USED: 489 WORDS ( 2 PAGES) 
DYNAMIC MEMORY: 7942 WORDS < 30 PAGES) 
ELAPSED TIME: 00:00:07 

C300.203FMT I NT . [300.303FMT 1NT=[ 300. 103FMT I NT 


